/usr/share/perl5/PlSense/Plugin/AddressFinder/Builtin.pm is in plsense 0.3.4-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 | package PlSense::Plugin::AddressFinder::Builtin;
use parent qw{ PlSense::Plugin::AddressFinder };
use strict;
use warnings;
use Class::Std;
{
sub get_builtin_name {
my ($self) = @_;
return "";
}
sub find_address {
my ($self, @tokens) = @_;
return;
}
sub find_address_or_entity {
my ($self, @tokens) = @_;
return;
}
sub get_argument_tokens {
my ($self, @tokens) = @_;
my $tok = shift @tokens or return ();
if ( ! $tok->isa("PPI::Structure::List") ) { return ($tok, @tokens); }
my @children = $tok->children;
$tok = shift @children or return ();
if ( ! $tok->isa("PPI::Statement") ) { return (); }
return $tok->children;
}
}
1;
__END__
|