diff options
Diffstat (limited to 'Master/tlpkg/tlperl.straw/lib/Class/LoaderTest.pm')
-rwxr-xr-x | Master/tlpkg/tlperl.straw/lib/Class/LoaderTest.pm | 41 |
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; + + |