File Coverage

blib/lib/Metabase/Resource/metabase.pm

Criterion	Covered	Total	%
statement	21	22	95.4
branch	2	4	50.0
condition	1	3	33.3
subroutine	7	7	100.0
pod			n/a
total	31	36	86.1

use 5.006;
use strict;
use warnings;

package Metabase::Resource::metabase;

our $VERSION = '0.025';

use Carp ();

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

my $hex     = '[0-9a-f]';
my $guid_re = qr(\A$hex{8}-$hex{4}-$hex{4}-$hex{4}-$hex{12}\z)i;

sub _validate_guid {
    my ( $self, $string ) = @_;
    if ( $string !~ $guid_re ) {
        Carp::confess("'$string' is not formatted as a GUID string");
    }
    return $string;
}

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

    # determine type
    my ($type) = $resource =~ m{\Ametabase:([^:]+)};
    Carp::confess("could not determine URI type from '$resource'\n")
      unless defined $type && length $type;
    return __PACKAGE__ . "::$type";
}

1;

# ABSTRACT: class for Metabase resources

__END__