cvsuser 02/06/07 14:58:25
Modified: P5EEx/Blue/P5EEx/Blue Reference.pm
Log:
added a print() method
Revision Changes Path
1.5 +25 -2 p5ee/P5EEx/Blue/P5EEx/Blue/Reference.pm
Index: Reference.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Reference.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -w -r1.4 -r1.5
--- Reference.pm 2 Mar 2002 03:07:46 -0000 1.4
+++ Reference.pm 7 Jun 2002 21:58:25 -0000 1.5
@@ -1,10 +1,10 @@
#############################################################################
-## $Id: Reference.pm,v 1.4 2002/03/02 03:07:46 spadkins Exp $
+## $Id: Reference.pm,v 1.5 2002/06/07 21:58:25 spadkins Exp $
#############################################################################
package P5EEx::Blue::Reference;
-$VERSION = do { my @r=(q$Revision: 1.4 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.5 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use strict;
@@ -372,6 +372,29 @@
my $d = Data::Dumper->new([ $self ], [ "conf" ]);
$d->Indent(1);
return $d->Dump();
+}
+
+#############################################################################
+# print()
+#############################################################################
+
+=head2 print()
+
+ * Signature: $ref->print();
+ * Param: void
+ * Return: void
+ * Throws: P5EEx::Blue::Exception
+ * Since: 0.01
+
+ Sample Usage:
+
+ $context->print();
+
+=cut
+
+sub print {
+ my $self = shift;
+ print $self->dump();
}
#############################################################################
