Initial Commit

database/perl/vendor/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;
+
+