lib/Net/XRC/Data/boolean.pm

   1 package Net::XRC::Data::boolean;
   2
   3 use strict;
   4 use vars qw(@ISA);
   5 use Net::XRC::Data;
   6
   7 @ISA = qw(Net::XRC::Data);
   8
   9 sub encode {
  10   my $self = shift;
  11   $$self ? '/T' : '/F';
  12 }
  13