/usr/share/perl5/Metabase/Resource/cpan.pm is in libmetabase-fact-perl 0.025-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 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 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 | use 5.006;
use strict;
use warnings;
package Metabase::Resource::cpan;
our $VERSION = '0.025';
use Carp ();
use Metabase::Resource;
our @ISA = qw/Metabase::Resource/;
sub _extract_type {
my ( $self, $resource ) = @_;
my ($type) = $resource =~ m{\Acpan:///([^/]+)/};
Carp::confess("could not determine Metabase::Resource type from '$resource'\n")
unless defined $type && length $type;
return __PACKAGE__ . "::$type";
}
1;
# ABSTRACT: class for Metabase resources
__END__
=pod
=encoding UTF-8
=head1 NAME
Metabase::Resource::cpan - class for Metabase resources
=head1 VERSION
version 0.025
=head1 SYNOPSIS
my $resource = Metabase::Resource->new(
'cpan:///distfile/RJBS/Metabase-Fact-0.001.tar.gz',
);
my $resource_meta = $resource->metadata;
my $typemap = $resource->metadata_types;
=head1 DESCRIPTION
Generates resource metadata for resources of the scheme 'cpan'.
The L<Metabase::Resource::cpan> class supports the following sub-type(s).
=head2 distfile
my $resource = Metabase::Resource->new(
'cpan:///distfile/RJBS/URI-cpan-1.000.tar.gz',
);
For the example above, the resource metadata structure would contain the
following elements:
scheme => cpan
type => distfile
dist_file => RJBS/URI-cpan-1.000.tar.gz
cpan_id => RJBS
dist_name => URI-cpan
dist_version => 1.000
=head1 BUGS
Please report any bugs or feature using the CPAN Request Tracker.
Bugs can be submitted through the web interface at
L<http://rt.cpan.org/Dist/Display.html?Queue=Metabase-Fact>
When submitting a bug or request, please include a test-file or a patch to an
existing test-file that illustrates the bug or desired feature.
=head1 AUTHORS
=over 4
=item *
David Golden <dagolden@cpan.org>
=item *
Ricardo Signes <rjbs@cpan.org>
=item *
H.Merijn Brand <hmbrand@cpan.org>
=back
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2016 by David Golden.
This is free software, licensed under:
The Apache License, Version 2.0, January 2004
=cut
|