/usr/share/perl5/PlSense/Plugin/AddressFinder/Ext/First.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 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | package PlSense::Plugin::AddressFinder::Ext::First;
use parent qw{ PlSense::Plugin::AddressFinder::Ext };
use strict;
use warnings;
use Class::Std;
use PlSense::Logger;
{
sub get_method_name {
my ($self) = @_;
return "first";
}
sub find_address {
my ($self, @tokens) = @_;
return $self->find_something(1, @tokens);
}
sub find_address_or_entity {
my ($self, @tokens) = @_;
return $self->find_something(0, @tokens);
}
sub find_something : PRIVATE {
my ($self, $is_addr, @tokens) = @_;
my $mdl = $self->get_mediator->get_currentmodule;
if ( ! $mdl->exist_usingmdl("List::Util") &&
! $mdl->exist_usingmdl("List::AllUtils") ) { return; }
my $tok = shift @tokens or return;
if ( ! $tok->isa("PPI::Structure::Block") ) { return; }
my $value = $self->get_mediator->find_address_or_entity(@tokens) or return;
if ( eval { $value->isa("PlSense::Entity") } ) {
if ( ! $value->isa("PlSense::Entity::Array") ) { return; }
my $el = $value->get_element;
if ( $el ) {
if ( $is_addr && eval { $el->isa("PlSense::Entity") } ) { return; }
return $el;
}
if ( $value->count_address > 0 ) { return $value->get_address(1).".A"; }
}
else {
return $value.".A";
}
}
}
1;
__END__
|