Mercurial > pub > Impl

comparison _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
comparison
equal deleted inserted replaced
92:5f676b61fb8b 93:0667064553ef
1 #!/usr/bin/perl 1 #!/usr/bin/perl
2 use strict;
2 3
3 warn join "\n", keys %{__PACKAGE__.'::'}; 4 package Boz;
5
6 sub run {
7 my ($self,$code) = @_;
8
9 $code->('Boz');
10 }
11
12 sub speak {
13 my ($self,$str) = @_;
14 print "Boz: $str";
15 }
16
17 sub type { $_[0]; }
18
19 print type Boz;