/usr/share/perl5/PlSense/Symbol.pm is in plsense 0.3.1-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 | package PlSense::Symbol;
use strict;
use warnings;
use Class::Std::Storable;
use PlSense::Logger;
{
my %name_of :ATTR( :init_arg<name> );
sub get_name { my ($self) = @_; return $name_of{ident $self}; }
my %type_of :ATTR( :default('') );
sub set_type { my ($self, $type) = @_; $type_of{ident $self} = $type; }
sub get_type { my ($self) = @_; return $type_of{ident $self}; }
my %helptext_of :ATTR( :init_arg<helptext> :default('') );
sub set_helptext { my ($self, $helptext) = @_; $helptext_of{ident $self} = $helptext; }
sub get_helptext { my ($self) = @_; return $helptext_of{ident $self}; }
my %linenumber_of :ATTR( :init_arg<linenumber> :default(0) );
sub set_linenumber {
my ($self, $linenumber) = @_;
if ( $linenumber !~ m{ ^\d+$ }xms ) {
logger->warn("Not Integer");
return;
}
$linenumber_of{ident $self} = $linenumber;
logger->debug("Set linenumber[$linenumber] to ".$self->get_fullnm);
}
sub get_linenumber { my ($self) = @_; return $linenumber_of{ident $self}; }
my %colnumber_of :ATTR( :init_arg<colnumber> :default(0) );
sub set_colnumber {
my ($self, $colnumber) = @_;
if ( $colnumber !~ m{ ^\d+$ }xms ) {
logger->warn("Not Integer");
return;
}
$colnumber_of{ident $self} = $colnumber;
logger->debug("Set colnumber[$colnumber] to ".$self->get_fullnm);
}
sub get_colnumber { my ($self) = @_; return $colnumber_of{ident $self}; }
sub START {
my ($class, $ident, $arg_ref) = @_;
my $name = $name_of{$ident} || "";
if ( ! $name ) {
logger->error("Name is invalid value : [$name]");
}
}
sub get_fullnm {
my $self = shift;
return $self->get_name();
}
}
1;
__END__
|