use warnings;
use 5.008001;
-our $VERSION = '0.001005';
+our $VERSION = '0.001011';
# mirrored in Declare.xs as DD_HANDLE_*
my ($class, $target) = @_;
delete $declarators{$target};
delete $declarator_handlers{$target};
- teardown();
}
my $temp_name;
my $temp_save;
sub init_declare {
- my ($usepack, $use, $inpack, $name, $proto) = @_;
+ my ($usepack, $use, $inpack, $name, $proto, $traits) = @_;
my ($name_h, $XX_h, $extra_code)
= $declarator_handlers{$usepack}{$use}->(
- $usepack, $use, $inpack, $name, $proto, defined(wantarray)
+ $usepack, $use, $inpack, $name, $proto, defined(wantarray), $traits
);
($temp_name, $temp_save) = ([], []);
if ($name) {
$setup_for_args{$name} = [
$flags,
sub {
- my ($usepack, $use, $inpack, $name, $proto, $shift_hashref) = @_;
- my $extra_code = $compile->($name, $proto);
+ my ($usepack, $use, $inpack, $name, $proto, $shift_hashref, $traits) = @_;
+ my $extra_code = $compile->($name, $proto, $traits);
my $main_handler = sub { shift if $shift_hashref;
("DONE", $run->($name, $proto, @_));
};
});
}
+sub linestr_callback_const {
+ warn "Linestr_callback_const: @_\n";
+ my $l = get_linestr();
+ warn "linestr: ${l}\n";
+ warn "w/offset: ".substr($l, $_[1])."\n";
+}
+
+sub linestr_callback {
+ my $type = shift;
+ my $meth = "linestr_callback_${type}";
+ __PACKAGE__->can($meth)->(@_);
+ return 'foo';
+}
+
=head1 NAME
Devel::Declare -