/usr/share/perl5/Mason/DynamicFilter.pm is in libmason-perl 2.24-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 | package Mason::DynamicFilter;
$Mason::DynamicFilter::VERSION = '2.24';
use Mason::Moose;
has 'filter' => ( isa => 'CodeRef' );
around 'BUILDARGS' => sub {
my $orig = shift;
my $class = shift;
if ( @_ == 1 ) {
return $class->$orig( filter => $_[0] );
}
else {
return $class->$orig(@_);
}
};
method apply_filter () {
my ($yield) = @_;
return $self->filter->($yield);
}
__PACKAGE__->meta->make_immutable();
1;
|