/usr/share/perl5/Prophet/CLI/CollectionCommand.pm is in libprophet-perl 0.750-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 | package Prophet::CLI::CollectionCommand;
use Any::Moose 'Role';
with 'Prophet::CLI::RecordCommand';
use Params::Validate;
sub get_collection_object {
my $self = shift;
my %args = validate(@_, {
type => { default => $self->type },
});
my $class = $self->_get_record_object(type => $args{type})->collection_class;
Prophet::App->require($class);
my $records = $class->new(
app_handle => $self->app_handle,
handle => $self->handle,
type => $args{type} || $self->type,
);
return $records;
}
no Any::Moose 'Role';
1;
|