Acme-Throw
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
t/lib/IO/String.pm view on Meta::CPAN
{
my $self = shift;
my $old = *$self->{pad};
*$self->{pad} = substr($_[0], 0, 1) if @_;
return "\0" unless defined($old) && length($old);
return $old;
}
sub dump
{
require Data::Dumper;
my $self = shift;
print Data::Dumper->Dump([$self], ['*self']);
print Data::Dumper->Dump([*$self{HASH}], ['$self{HASH}']);
return;
}
sub TIEHANDLE
{
print "TIEHANDLE @_\n" if $DEBUG;
return $_[0] if ref($_[0]);
my $class = shift;
my $self = bless Symbol::gensym(), $class;
$self->open(@_);
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.037 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )