/usr/share/perl5/Aspect/Pointcut/Wantarray.pm is in libaspect-perl 1.04-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 | package Aspect::Pointcut::Wantarray;
use strict;
use Carp ();
use Aspect::Pointcut ();
our $VERSION = '1.04';
our @ISA = 'Aspect::Pointcut';
use constant VOID => 1;
use constant SCALAR => 2;
use constant LIST => 3;
######################################################################
# Constructor Methods
sub new {
return bless [
LIST,
'$Aspect::POINT->{wantarray}',
], $_[0] if $_[1];
return bless [
SCALAR,
'defined $Aspect::POINT->{wantarray} and not $Aspect::POINT->{wantarray}',
], $_[0] if defined $_[1];
return bless [
VOID,
'not defined $Aspect::POINT->{wantarray}',
], $_[0];
}
######################################################################
# Weaving Methods
# This is a run-time only pointcut of no value at weave time
sub curry_weave {
return;
}
# For wantarray pointcuts we keep the original
sub curry_runtime {
return $_[0];
}
sub compile_runtime {
$_[0]->[1];
}
######################################################################
# Optional XS Acceleration
BEGIN {
local $@;
eval <<'END_PERL';
use Class::XSAccessor::Array 1.08 {
replace => 1,
getters => {
'compile_runtime' => 1,
},
};
END_PERL
}
1;
__END__
=pod
=head1 NAME
Aspect::Pointcut::Wantarray - A pointcut for the run-time wantarray context
=head1 SYNOPSIS
use Aspect;
# High-level creation
my $pointcut1 = wantlist | wantscalar | wantvoid;
# Manual creation
my $pointcut2 = Padre::Pointcut::Or->new(
Padre::Pointcut::Wantarray->new( 1 ), # List
Padre::Pointcut::Wantarray->new( 0 ), # Scalar
Padre::Pointcut::Wantarray->new( undef ), # Void
);
=head1 DESCRIPTION
The C<Aspect::Pointcut::Wantarray> pointcut allows the creation of
aspects that only trap calls made in a particular calling context
(list, scalar or void).
=head1 AUTHORS
Adam Kennedy E<lt>adamk@cpan.orgE<gt>
=head1 COPYRIGHT
Copyright 2001 by Marcel GrE<uuml>nauer
Some parts copyright 2009 - 2013 Adam Kennedy.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
|