/usr/share/perl5/Kavorka/Sub/ObjectMethod.pm is in libkavorka-perl 0.036-2.
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 | use 5.014;
use strict;
use warnings;
use Kavorka::Parameter ();
use Types::Standard ();
package Kavorka::Sub::ObjectMethod;
our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION = '0.036';
use Moo;
extends 'Kavorka::Sub::Method';
sub default_invocant
{
my $self = shift;
return (
'Kavorka::Parameter'->new(
name => '$self',
traits => { invocant => 1 },
type => Types::Standard::Object,
),
);
}
1;
|