File Coverage

blib/lib/Metabase/User/Profile.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	1	2	50.0
condition			n/a
subroutine	9	9	100.0
pod	3	3	100.0
total	45	46	97.8

use 5.006;
use strict;
use warnings;

package Metabase::User::Profile;

our $VERSION = '0.025';

use Carp ();
use Data::GUID guid_string => { -as => '_guid' };

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

__PACKAGE__->load_fact_classes;

#--------------------------------------------------------------------------#
# public API
#--------------------------------------------------------------------------#

sub create {
    my ( $class, @args ) = @_;
    my $args = $class->__validate_args(
        \@args,
        {
            full_name     => 1,
            email_address => 1,
        }
    );

    # resource string must reference our own guid, so pregenerate it
    my $guid    = lc _guid();
    my $profile = $class->open(
        guid     => $guid,
        resource => "metabase:user:$guid",
    );

    # we are our own creator
    $profile->set_creator( $profile->resource );

    # add facts
    $profile->add( 'Metabase::User::FullName'     => $args->{full_name} );
    $profile->add( 'Metabase::User::EmailAddress' => $args->{email_address} );
    $profile->close;
    return $profile;
}

#--------------------------------------------------------------------------#
# internals
#--------------------------------------------------------------------------#

sub validate_resource {
    my ($self)   = shift;
    my $resource = $self->SUPER::validate_resource(@_);
    my ($guid)   = $resource->guid;
    Carp::confess "resource guid differs from fact guid" if $guid ne $self->guid;
    return $resource;
}

sub report_spec {
    return {
        'Metabase::User::FullName'     => '1',
        'Metabase::User::EmailAddress' => '1+',
    };
}

1;

# ABSTRACT: Metabase report class for user-related facts

__END__