Query/Element/LV.pm

##  --------------------------------------------------------------------------------
##  $Id: LV.pm,v 1.1 2002/12/27 16:03:58 joko Exp $
##  --------------------------------------------------------------------------------
##  $Log: LV.pm,v $
##  Revision 1.1  2002/12/27 16:03:58  joko
##  + initial check-in
##
##  --------------------------------------------------------------------------------


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

use strict;
use warnings;

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