3 role CatalystX::Declare::Context::StringParsing {
7 after inject_code_parts_here (@args) {
8 # print "INJECT " . $self->get_linestr . "\n";
9 #print "BLOCK $_\n" for @args;
12 after inject_if_block (@args) {
13 # print "BLOCK " . $self->get_linestr . "\n";
14 #print "BLOCK $_\n" for @args;
21 my $linestr = $self->get_linestr;
22 my $left = substr $linestr, $self->offset;
27 method strip_from_linestr (Int $chars) {
29 my $linestr = $self->get_linestr;
30 substr($linestr, $self->offset, $chars) = '';
31 $self->set_linestr($linestr);
36 my $left = $self->rest_of_line;
38 if ($left =~ /^"/ and my $num = Devel::Declare::toke_scan_str $self->offset) {
40 my $found = Devel::Declare::get_lex_stuff;
41 Devel::Declare::clear_lex_stuff;
43 $self->strip_from_linestr($num);
48 return $self->get_scalar;
54 my $left = $self->rest_of_line;
56 if ($left =~ s/^ ( \$ [a-z_] [a-z0-9_]* ) //ix) {
60 $self->strip_from_linestr( length $found );