lib/Net/XRC/Data/bytes.pm

   1 package Net::XRC::Data::bytes;
   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   '{'. length($$self). '}'. $$self;
  12 }