Query/Element/LV.pm

##  --------------------------------------------------------------------------------
##  $Id: LV.pm,v 1.2 2003/02/11 11:12:44 joko Exp $
##  --------------------------------------------------------------------------------
##  $Log: LV.pm,v $
##  Revision 1.2  2003/02/11 11:12:44  joko
##  + sub get
##
##  Revision 1.1  2002/12/27 16:03:58  joko
##  + initial check-in
##
##  --------------------------------------------------------------------------------


package Data::Query::Element::LV;

use strict;
use warnings;

use base qw(
  DesignPattern::Object
  DesignPattern::Logger
);


use Data::Dumper;

sub _init {
  my $self = shift;
  # get single argument already stuffed from designpattern-base-object (hopefully)
  $self->{value} = $self->{__arg};
  delete $self->{__arg};
}

sub __check {
  my $self = shift;
  if (!defined $self->{value}) {
    return;
  }
  return 1;
}

sub eq {
  my $self = shift;
  my $val = shift;
  return if !$self->__check();
  return 1 if $self->{value} eq $val;
}

sub value {
  my $self = shift;
  return $self->{value};
}

sub toString {
  my $self = shift;
  my $val = $self->value();
  $val ||= '';
  return $val;
}

sub undefined {
  my $self = shift;
  my $val = $self->value();
  return !($val);
}

sub set {
  my $self = shift;
  return $self->{value} = shift;
}

sub get {
  my $self = shift;
  return $self->value();
}

1;
1	joko	1.1	## --------------------------------------------------------------------------------
2	joko	1.3	## $Id: LV.pm,v 1.2 2003/02/11 11:12:44 joko Exp $
3	joko	1.1	## --------------------------------------------------------------------------------
4	joko	1.2	## $Log: LV.pm,v $
5	joko	1.3	## Revision 1.2 2003/02/11 11:12:44 joko
6			## + sub get
7			##
8	joko	1.2	## Revision 1.1 2002/12/27 16:03:58 joko
9			## + initial check-in
10			##
11	joko	1.1	## --------------------------------------------------------------------------------
12
13
14			package Data::Query::Element::LV;
15
16			use strict;
17			use warnings;
18
19	joko	1.3	use base qw(
20			DesignPattern::Object
21			DesignPattern::Logger
22			);
23	joko	1.1
24
25			use Data::Dumper;
26
27			sub _init {
28			my $self = shift;
29			# get single argument already stuffed from designpattern-base-object (hopefully)
30			$self->{value} = $self->{__arg};
31			delete $self->{__arg};
32			}
33
34			sub __check {
35			my $self = shift;
36			if (!defined $self->{value}) {
37			return;
38			}
39			return 1;
40			}
41
42			sub eq {
43			my $self = shift;
44			my $val = shift;
45			return if !$self->__check();
46			return 1 if $self->{value} eq $val;
47			}
48
49			sub value {
50			my $self = shift;
51			return $self->{value};
52			}
53
54			sub toString {
55			my $self = shift;
56			my $val = $self->value();
57			$val \|\|= '';
58			return $val;
59			}
60
61			sub undefined {
62			my $self = shift;
63			my $val = $self->value();
64			return !($val);
65			}
66
67			sub set {
68			my $self = shift;
69			return $self->{value} = shift;
70	joko	1.2	}
71
72			sub get {
73			my $self = shift;
74			return $self->value();
75	joko	1.1	}
76
77			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26