111 lines
2.7 KiB
Perl
111 lines
2.7 KiB
Perl
package B::Hooks::EndOfScope::PP;
|
|
# ABSTRACT: Execute code after a scope finished compilation - PP implementation
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
our $VERSION = '0.24';
|
|
|
|
use constant _PERL_VERSION => "$]";
|
|
|
|
BEGIN {
|
|
if (_PERL_VERSION =~ /^5\.009/) {
|
|
# CBA to figure out where %^H got broken and which H::U::HH is sane enough
|
|
die "By design B::Hooks::EndOfScope does not operate in pure-perl mode on perl 5.9.X\n"
|
|
}
|
|
elsif (_PERL_VERSION < '5.010') {
|
|
require B::Hooks::EndOfScope::PP::HintHash;
|
|
*on_scope_end = \&B::Hooks::EndOfScope::PP::HintHash::on_scope_end;
|
|
}
|
|
else {
|
|
require B::Hooks::EndOfScope::PP::FieldHash;
|
|
*on_scope_end = \&B::Hooks::EndOfScope::PP::FieldHash::on_scope_end;
|
|
}
|
|
}
|
|
|
|
use Sub::Exporter::Progressive 0.001006 -setup => {
|
|
exports => ['on_scope_end'],
|
|
groups => { default => ['on_scope_end'] },
|
|
};
|
|
|
|
sub __invoke_callback {
|
|
local $@;
|
|
eval { $_[0]->(); 1 } or do {
|
|
my $err = $@;
|
|
require Carp;
|
|
Carp::cluck( (join ' ',
|
|
'A scope-end callback raised an exception, which can not be propagated when',
|
|
'B::Hooks::EndOfScope operates in pure-perl mode. Your program will CONTINUE',
|
|
'EXECUTION AS IF NOTHING HAPPENED AFTER THIS WARNING. Below is the complete',
|
|
'exception text, followed by a stack-trace of the callback execution:',
|
|
) . "\n\n$err\n\r" );
|
|
|
|
sleep 1 if -t *STDERR; # maybe a bad idea...?
|
|
};
|
|
}
|
|
|
|
1;
|
|
|
|
__END__
|
|
|
|
=pod
|
|
|
|
=encoding UTF-8
|
|
|
|
=head1 NAME
|
|
|
|
B::Hooks::EndOfScope::PP - Execute code after a scope finished compilation - PP implementation
|
|
|
|
=head1 VERSION
|
|
|
|
version 0.24
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This is the pure-perl implementation of L<B::Hooks::EndOfScope> based only on
|
|
modules available as part of the perl core. Its leaner sibling
|
|
L<B::Hooks::EndOfScope::XS> will be automatically preferred if all
|
|
dependencies are available and C<$ENV{B_HOOKS_ENDOFSCOPE_IMPLEMENTATION}> is
|
|
not set to C<'PP'>.
|
|
|
|
=head1 FUNCTIONS
|
|
|
|
=head2 on_scope_end
|
|
|
|
on_scope_end { ... };
|
|
|
|
on_scope_end $code;
|
|
|
|
Registers C<$code> to be executed after the surrounding scope has been
|
|
compiled.
|
|
|
|
This is exported by default. See L<Sub::Exporter> on how to customize it.
|
|
|
|
=head1 SUPPORT
|
|
|
|
Bugs may be submitted through L<the RT bug tracker|https://rt.cpan.org/Public/Dist/Display.html?Name=B-Hooks-EndOfScope>
|
|
(or L<bug-B-Hooks-EndOfScope@rt.cpan.org|mailto:bug-B-Hooks-EndOfScope@rt.cpan.org>).
|
|
|
|
=head1 AUTHORS
|
|
|
|
=over 4
|
|
|
|
=item *
|
|
|
|
Florian Ragwitz <rafl@debian.org>
|
|
|
|
=item *
|
|
|
|
Peter Rabbitson <ribasushi@leporine.io>
|
|
|
|
=back
|
|
|
|
=head1 COPYRIGHT AND LICENCE
|
|
|
|
This software is copyright (c) 2008 by Florian Ragwitz.
|
|
|
|
This is free software; you can redistribute it and/or modify it under
|
|
the same terms as the Perl 5 programming language system itself.
|
|
|
|
=cut
|