summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl.straw/lib/Class/LoaderTest.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl.straw/lib/Class/LoaderTest.pm')
-rwxr-xr-xMaster/tlpkg/tlperl.straw/lib/Class/LoaderTest.pm41
1 files changed, 41 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl.straw/lib/Class/LoaderTest.pm b/Master/tlpkg/tlperl.straw/lib/Class/LoaderTest.pm
new file mode 100755
index 00000000000..0bebe321587
--- /dev/null
+++ b/Master/tlpkg/tlperl.straw/lib/Class/LoaderTest.pm
@@ -0,0 +1,41 @@
+#!/usr/bin/perl -sw
+##
+##
+##
+## Copyright (c) 2001, Vipul Ved Prakash. All rights reserved.
+## This code is free software; you can redistribute it and/or modify
+## it under the same terms as Perl itself.
+##
+## $Id: LoaderTest.pm,v 1.2 2001/05/01 00:09:12 vipul Exp $
+
+package Class::LoaderTest;
+use Data::Dumper;
+
+sub new {
+
+ my $self = { Method => 'new' };
+ return bless $self, shift;
+
+}
+
+
+sub foo {
+
+ my ($class, $embed) = @_;
+ $embed ||= 'foo';
+ my $self = { Method => $embed };
+ return bless $self, shift;
+
+}
+
+sub blah {
+
+ my ($class, %params) = @_;
+ my $self = { %params };
+ return bless $self, $class;
+
+}
+
+1;
+
+