Author: sparky
Date: Wed Jul 21 20:57:59 2010
New Revision: 11689
Modified:
toys/rsget.pl/RSGet/Line.pm
Log:
- added clone() method
Modified: toys/rsget.pl/RSGet/Line.pm
==============================================================================
--- toys/rsget.pl/RSGet/Line.pm (original)
+++ toys/rsget.pl/RSGet/Line.pm Wed Jul 21 20:57:59 2010
@@ -190,6 +190,12 @@
$active{ $$self }->[2] = $data;
}
+sub clone
+{
+ my $self = shift;
+ my $line = $$self;
+ return new RSGet::Line @{ $active{ $line } };
+}
sub DESTROY
{
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
