package DebugTail;
use strict;
use warnings;
sub lex {
my $self = shift;
for (${$self->input()}) {
s{^(\s+)}{} and $self->tokenline($1 =~ tr{\n}{});
return ($1,$1) if s/^(.)//;
}
return ('',undef);
}
1;
package DebugTail;
use strict;
use warnings;
sub lex {
my $self = shift;
for (${$self->input()}) {
s{^(\s+)}{} and $self->tokenline($1 =~ tr{\n}{});
return ($1,$1) if s/^(.)//;
}
return ('',undef);
}
1;