Searched defs:bless (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/
H A Dst-dump.pl70 # Then extract the bless, ref and address parts of that string.
73 my ($bless, $ref, $addr) = $what =~ /^(\w+)=(\w+)\((0x.*)\)$/;
74 ($ref, $addr) = $what =~ /^(\w+)\((0x.*)\)$/ unless $bless;
96 # If the referenced was blessed, we bless it once the object is dumped.
102 &bless($bless) if $bless; # Mark it as blessed, if necessary
108 sub bless { subroutine

Completed in 32 milliseconds