/usr/share/perl5/Aspect/Library/Listenable/Event.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 | package Aspect::Library::Listenable::Event;
use strict;
our $VERSION = '1.04';
sub new {
my $class = shift;
bless { @_ }, $class;
}
sub AUTOLOAD {
my ($self, $value) = @_;
my $key = our $AUTOLOAD;
return if $key =~ /DESTROY$/;
$key =~ s/^.*:://;
return @_ == 1
? $self->{$key}
: ( $self->{$key} = $value );
}
sub clone {
my $self = shift;
my $class = ref $self;
my $clone = $class->new;
while ( my ($key, $value) = each %$self ) {
$clone->{$key} = $value;
}
return $clone;
}
sub as_string {
my $self = shift;
local $_;
return join ', ', map { "$_:$self->{$_}" } sort keys %$self;
}
1;
|