1 package Devel::Declare::MethodInstaller::Simple;
3 use base 'Devel::Declare::Context::Simple';
10 our $VERSION = '0.006000';
12 sub install_methodhandler {
17 *{$args{into}.'::'.$args{name}} = sub (&) {};
20 my $ctx = $class->new(%args);
21 Devel::Declare->setup_for(
23 { $args{name} => { const => sub { $ctx->parser(@_) } } }
28 my ($self, $name) = @_;
31 my $pkg = $self->get_curstash_name;
32 $name = join( '::', $pkg, $name )
33 unless( $name =~ /::/ );
36 # So caller() gets the subroutine name
38 *{$name} = subname $name => $code;
42 return sub (&) { shift };
47 my ($self, $name ) = @_;
49 $self->shadow( $self->code_for($name) );
56 $self->skip_declarator;
57 my $name = $self->strip_name;
58 my $proto = $self->strip_proto;
59 my $attrs = $self->strip_attrs;
60 my @decl = $self->parse_proto($proto);
61 my $inject = $self->inject_parsed_proto(@decl);
63 $inject = $self->scope_injector_call() . $inject;
65 $self->inject_if_block($inject, $attrs ? "sub ${attrs} " : '');
67 $self->install( $name );
72 sub parse_proto { '' }
74 sub inject_parsed_proto {