1 package Devel::Declare::MethodInstaller::Simple;
3 use base 'Devel::Declare::Context::Simple';
10 our $VERSION = '0.006_021';
13 sub install_methodhandler {
18 *{$args{into}.'::'.$args{name}} = sub (&) {};
21 my $warnings = warnings::enabled("redefine");
22 my $ctx = $class->new(%args);
23 Devel::Declare->setup_for(
25 { $args{name} => { const => sub { $ctx->parser(@_, $warnings) } } }
30 my ($self, $name) = @_;
33 my $pkg = $self->get_curstash_name;
34 $name = join( '::', $pkg, $name )
35 unless( $name =~ /::/ );
38 # So caller() gets the subroutine name
40 my $installer = $self->warning_on_redefine
41 ? sub { *{$name} = subname $name => $code; }
42 : sub { no warnings 'redefine';
43 *{$name} = subname $name => $code; };
48 return sub (&) { shift };
53 my ($self, $name ) = @_;
55 $self->shadow( $self->code_for($name) );
62 $self->skip_declarator;
63 my $name = $self->strip_name;
64 my $proto = $self->strip_proto;
65 my $attrs = $self->strip_attrs;
66 my @decl = $self->parse_proto($proto);
67 my $inject = $self->inject_parsed_proto(@decl);
69 $inject = $self->scope_injector_call() . $inject;
71 $self->inject_if_block($inject, $attrs ? "sub ${attrs} " : '');
73 $self->install( $name );
78 sub parse_proto { '' }
80 sub inject_parsed_proto {