File Coverage

blib/lib/Metabase/Resource/metabase/fact.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	8	8	100.0
pod	1	1	100.0
total	34	37	91.8

use 5.006;
use strict;
use warnings;

package Metabase::Resource::metabase::fact;

our $VERSION = '0.025';

use Carp ();

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

sub _metadata_types {
    return { guid => '//str', };
}

sub _init {
    my ($self) = @_;
    my ($guid) = $self =~ m{\Ametabase:[^:]+:(.+)\z};
    Carp::confess("could not determine guid from '$self'\n")
      unless defined $guid && length $guid;
    $self->_add( guid => $guid );
    return $self;
}

sub validate {
    my $self = shift;
    $self->_validate_guid( $self->guid );
    return 1;
}

1;

# ABSTRACT: class for Metabase facts

__END__