Version 0.006002

[p5sagit/Devel-Declare.git] / t / early0.t

use strict;
use warnings;
use Test::More tests => 1;
BEGIN {
    require Devel::Declare;
    Devel::Declare->setup_for(__PACKAGE__, {
        class => {
            const => sub {
                my ($kw, $off) = @_;
                $off += Devel::Declare::toke_move_past_token($off);
                $off += Devel::Declare::toke_skipspace($off);
                die unless substr(Devel::Declare::get_linestr(), $off, 1) eq '{';
                my $l = Devel::Declare::get_linestr();
                substr $l, $off + 1, 0, 'pass q[injected];' . (';' x 1000);
                Devel::Declare::set_linestr($l);
                my $class = sub (&) { $_[0]->() };
                no strict 'refs';
                *{ $kw } = $class;
            },
        },
    });
}
class {};