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	## --------------------------------------------------------------------------------
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