1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
|
# This is from the Scalar::Utils distro
use Data::Dump::Streamer qw(blessed);
use vars qw($t $y $x);
print "1..7\n";
print "not " if blessed(1);
print "ok 1\n";
print "not " if blessed('A');
print "ok 2\n";
print "not " if blessed({});
print "ok 3\n";
print "not " if blessed([]);
print "ok 4\n";
$y= \$t;
print "not " if blessed($y);
print "ok 5\n";
$x= bless [], "ABC";
print "not " unless blessed($x);
print "ok 6\n";
print "not " unless blessed($x) eq 'ABC';
print "ok 7\n";
|