Select Code to Download

package BaseClass;
use Class::Std;
...
#    use overload (q{0+} => 'as_num', fallback=>1);
    1;
}

#!/usr/bin/perl

...
my $x = 0 ;
$x += $c ;
print "x = $x\n";

[stbaldwin@audev02 dev]$ ./tst.pl
Use of uninitialized value in method lookup at (eval 2) line 3.
Can't locate object method "" via package "BaseClass" at (eval 2) line
+ 3