use B::Hooks::EndOfScope;
use Carp qw/confess/;
+our $VERSION = '0.006015';
+
sub new {
my $class = shift;
bless {@_}, $class;
sub init {
my $self = shift;
- @{$self}{ qw(Declarator Offset) } = @_;
+ @{$self}{ qw(Declarator Offset WarningOnRedefined) } = @_;
return $self;
}
return $self->{Declarator}
}
+sub warning_on_redefine {
+ my $self = shift;
+ return $self->{WarningOnRedefined}
+}
+
sub skip_declarator {
my $self = shift;
my $decl = $self->declarator;
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;