Mercurial > pub > Impl
view _test/temp.pl @ 96:4c55aed00ff2
Minor changes
author | wizard |
---|---|
date | Fri, 30 Apr 2010 15:03:38 +0400 |
parents | 0667064553ef |
children | 964587c5183c |
line wrap: on
line source
#!/usr/bin/perl use strict; package Boz; sub run { my ($self,$code) = @_; $code->('Boz'); } sub speak { my ($self,$str) = @_; print "Boz: $str"; } sub type { $_[0]; } print type Boz;