Select Code to Download

#!/usr/bin/perl

package FunkOpera;
...
                    bless sub { ! &{$fn}}, __PACKAGE__ };

1;

package main;

my $foo = bless sub { $_[0] =~ /foo/ }, FunkOpera;
...
foonbar("ford") returns 
barrfoo("food") returns bar
barrfoo("ford") returns bar