Mercurial > pub > Impl

diff _test/temp.pl @ 93:0667064553ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed _is_class in activator rewritten IMPL::Config::Resolve new features in the Abstract class
author wizard
date Wed, 28 Apr 2010 17:50:55 +0400
parents 52eeec77504b
children 964587c5183c
line wrap: on
line diff
--- a/_test/temp.pl	Tue Apr 27 20:10:07 2010 +0400
+++ b/_test/temp.pl	Wed Apr 28 17:50:55 2010 +0400
@@ -1,3 +1,19 @@
 #!/usr/bin/perl
+use strict;
+
+package Boz;
 
-warn join "\n", keys %{__PACKAGE__.'::'};
\ No newline at end of file
+sub run {
+	my ($self,$code) = @_;
+	
+	$code->('Boz');
+}
+
+sub speak {
+	my ($self,$str) = @_;
+	print "Boz: $str";
+}
+
+sub type {	$_[0]; }
+
+print type Boz;
\ No newline at end of file