Mercurial > pub > Impl

comparison _test/temp.pl @ 97:964587c5183c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added SecureCall to Web QueryHandlers stack many bug fixes to Security and Web Application modules
author wizard
date Tue, 04 May 2010 04:04:37 +0400
parents 0667064553ef
children cf3b6ef2be22
comparison
equal deleted inserted replaced
96:4c55aed00ff2 97:964587c5183c
1 #!/usr/bin/perl 1 #!/usr/bin/perl
2 use strict; 2 use strict;
3 3
4 package Boz; 4 use IMPL::Security::Context;
5 5
6 sub run { 6 print IMPL::Security::Context->current->principal->name;
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;