projects
/
Net-XRC.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
initial import
[Net-XRC.git]
/
lib
/
Net
/
XRC
/
Data
/
list.pm
1
package Net::XRC::Data::list;
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
'('. join(' ', map {
12
ref($_) =~ /^Net::XRC::Data/
13
? $_->encode
14
: Net::XRC::Data->new($_)->encode
15
}
16
@$self
17
).
18
')';
19
}
20