Mercurial > pub > Impl

annotate _test/temp.pl @ 94:79bf75223afe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed security related bugs
author wizard
date Thu, 29 Apr 2010 01:31:27 +0400
parents 0667064553ef
children 964587c5183c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
83
74bae30eb25e (no commit message)
wizard
parents:
diff changeset
1 #!/usr/bin/perl
93
0667064553ef fixed _is_class in activator
wizard
parents: 86
diff changeset
2 use strict;
0667064553ef fixed _is_class in activator
wizard
parents: 86
diff changeset
3
0667064553ef fixed _is_class in activator
wizard
parents: 86
diff changeset
4 package Boz;
83
74bae30eb25e (no commit message)
wizard
parents:
diff changeset
5
93
0667064553ef fixed _is_class in activator
wizard
parents: 86
diff changeset
6 sub run {
0667064553ef fixed _is_class in activator
wizard
parents: 86
diff changeset
7 my ($self,$code) = @_;
0667064553ef fixed _is_class in activator
wizard
parents: 86
diff changeset
8
0667064553ef fixed _is_class in activator
wizard
parents: 86
diff changeset
9 $code->('Boz');
0667064553ef fixed _is_class in activator
wizard
parents: 86
diff changeset
10 }
0667064553ef fixed _is_class in activator
wizard
parents: 86
diff changeset
11
0667064553ef fixed _is_class in activator
wizard
parents: 86
diff changeset
12 sub speak {
0667064553ef fixed _is_class in activator
wizard
parents: 86
diff changeset
13 my ($self,$str) = @_;
0667064553ef fixed _is_class in activator
wizard
parents: 86
diff changeset
14 print "Boz: $str";
0667064553ef fixed _is_class in activator
wizard
parents: 86
diff changeset
15 }
0667064553ef fixed _is_class in activator
wizard
parents: 86
diff changeset
16
0667064553ef fixed _is_class in activator
wizard
parents: 86
diff changeset
17 sub type { $_[0]; }
0667064553ef fixed _is_class in activator
wizard
parents: 86
diff changeset
18
0667064553ef fixed _is_class in activator
wizard
parents: 86
diff changeset
19 print type Boz;