diff options
| author | ivan <ivan> | 2005-08-08 15:03:34 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2005-08-08 15:03:34 +0000 |
| commit | 7a0add6a84e1c3aa8826c98bbef70c07db5e1203 (patch) | |
| tree | eb75a9d99924bc4997266e5d4effc56b890084ae /lib/Net/XRC/Data/boolean.pm | |
initial import
Diffstat (limited to 'lib/Net/XRC/Data/boolean.pm')
| -rw-r--r-- | lib/Net/XRC/Data/boolean.pm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/lib/Net/XRC/Data/boolean.pm b/lib/Net/XRC/Data/boolean.pm new file mode 100644 index 0000000..7587cf1 --- /dev/null +++ b/lib/Net/XRC/Data/boolean.pm @@ -0,0 +1,13 @@ +package Net::XRC::Data::boolean; + +use strict; +use vars qw(@ISA); +use Net::XRC::Data; + +@ISA = qw(Net::XRC::Data); + +sub encode { + my $self = shift; + $$self ? '/T' : '/F'; +} + |