Help for this page

Select Code to Download


  1. or download this
    # untested sample code
my $a = Foo->retrieve(999); # $a is CDBI object
&some_sub('' . $a); # cast object back to scalar, here 999
  2. or download this
    # untested sample code
my $mocka = Test::MockObject->new;
...
# such that I can mock the result of 
# '' . $mocka
# ???