Query/Element/LV.pm

##  --------------------------------------------------------------------------------
##  $Id$
##  --------------------------------------------------------------------------------
##  $Log$
##  --------------------------------------------------------------------------------


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;
}

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