/usr/share/perl5/PPI/Token/Prototype.pm is in libppi-perl 1.236-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 | package PPI::Token::Prototype;
=pod
=head1 NAME
PPI::Token::Prototype - A subroutine prototype descriptor
=head1 INHERITANCE
PPI::Token::End
isa PPI::Token
isa PPI::Element
=head1 SYNOPSIS
sub ($@) prototype;
=head1 DESCRIPTION
Although it sort of looks like a list or condition, a subroutine
prototype is a lot more like a string. Its job is to provide hints
to the perl compiler on what type of arguments a particular subroutine
expects, which the compiler uses to validate parameters at compile-time,
and allows programmers to use the functions without explicit parameter
parens.
Due to the rise of OO Perl coding, which ignores these prototypes, they
are most often used to allow for constant-like things, and to "extend"
the language and create things that act like keywords and core functions.
# Create something that acts like a constant
sub MYCONSTANT () { 10 }
# Create the "any" core-looking function
sub any (&@) { ... }
if ( any { $_->cute } @babies ) {
...
}
=head1 METHODS
This class provides one additional method beyond those defined by the
L<PPI::Token> and L<PPI::Element> parent classes.
=cut
use strict;
use PPI::Token ();
use vars qw{$VERSION @ISA};
BEGIN {
$VERSION = '1.236';
@ISA = 'PPI::Token';
}
sub __TOKENIZER__on_char {
my $class = shift;
my $t = shift;
# Suck in until we find the closing paren (or the end of line)
pos $t->{line} = $t->{line_cursor};
die "regex should always match" if $t->{line} !~ m/\G(.*?(?:\)|$))/gc;
$t->{token}->{content} .= $1;
$t->{line_cursor} += length $1;
# Shortcut if end of line
return 0 unless $1 =~ /\)$/;
# Found the closing paren
$t->_finalize_token->__TOKENIZER__on_char( $t );
}
=pod
=head2 prototype
The C<prototype> accessor returns the actual prototype pattern, stripped
of flanking parens and of all whitespace. This mirrors the behavior of
the Perl C<prototype> builtin function.
Note that stripping parens and whitespace means that the return of
C<prototype> can be an empty string.
=cut
sub prototype {
my $self = shift;
my $proto = $self->content;
$proto =~ s/(^\(|\)$|\s+)//g;
$proto;
}
1;
=pod
=head1 SUPPORT
See the L<support section|PPI/SUPPORT> in the main module.
=head1 AUTHOR
Adam Kennedy E<lt>adamk@cpan.orgE<gt>
=head1 COPYRIGHT
Copyright 2001 - 2011 Adam Kennedy.
This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the
LICENSE file included with this module.
=cut
|