Help for this page

Select Code to Download


  1. or download this
    package Foo;
use strict;
...
sub new {bless {}, __PACKAGE__}
sub right_shift { print "OK!\n"}
1;
  2. or download this
    #!/usr/bin/perl -w
use strict;
use Foo;
my $foo = Foo->new;
"test" >> $foo;
  3. or download this
    Useless use of right bitshift (>>) in void context at foo.pl line 5.
OK!