use B::Hooks::EndOfScope;
use Carp qw/confess/;
+our $VERSION = '0.006013';
+
sub new {
my $class = shift;
bless {@_}, $class;
Devel::Declare::clear_lex_stuff();
$linestr = $self->get_linestr();
- substr($linestr, $self->offset, $length) = '';
+ substr($linestr, $self->offset,
+ defined($length) ? $length : length($linestr)) = '';
$self->set_linestr($linestr);
return $proto;