File Coverage

blib/lib/Metabase/Resource/perl.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	6	6	100.0
pod			n/a
total	26	29	89.6

use 5.006;
use strict;
use warnings;

package Metabase::Resource::perl;

our $VERSION = '0.025';

use Carp ();

use Metabase::Resource;
our @ISA = qw/Metabase::Resource/;

sub _extract_type {
    my ( $self, $resource ) = @_;

    # determine type
    # Possible types could be:
    #  - commit
    #  - tag -- not implemented
    #  - tarball -- not implemented
    my ($type) = $resource =~ m{\Aperl:///([^/]+)/};
    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 under the perl scheme

__END__