SVN: toys/rsget.pl/RSGet/Line.pm

[sparky]

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
 {