File Coverage

blib/lib/MetaPOD/Result.pm

Criterion	Covered	Total	%
statement	24	48	50.0
branch			n/a
condition			n/a
subroutine	8	18	44.4
pod	9	9	100.0
total	41	75	54.6

use 5.006;    # our
use strict;
use warnings;

package MetaPOD::Result;

our $VERSION = 'v0.4.0';

# ABSTRACT: Compiled aggregate result object for MetaPOD

our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY













use Moo qw( has );
use List::AllUtils qw( uniq );







has namespace => (
  is       => ro            =>,
  required => 0,
  lazy     => 1,
  builder  => sub           { undef },
  writer   => set_namespace =>,
  reader   => namespace     =>,
);

has inherits => (
  is       => ro            =>,
  required => 0,
  lazy     => 1,
  builder  => sub           { [] },
  writer   => _set_inherits =>,
  reader   => _inherits     =>,
);

has does => (
  is       => ro        =>,
  required => 0,
  lazy     => 1,
  builder  => sub       { [] },
  writer   => _set_does =>,
  reader   => _does     =>,
);

has interface => (
  is       => ro             =>,
  required => 0,
  lazy     => 1,
  builder  => sub            { [] },
  writer   => _set_interface =>,
  reader   => _interface     =>,
);







sub inherits {
  my $self = shift;
  return @{ $self->_inherits };
}







sub set_inherits {
  my ( $self, @inherits ) = @_;
  $self->_set_inherits( [ uniq @inherits ] );
  return $self;
}







sub add_inherits {
  my ( $self, @items ) = @_;
  $self->_set_inherits( [ uniq @{ $self->_inherits }, @items ] );
  return $self;
}







sub does {
  my $self = shift;
  return @{ $self->_does };
}







sub set_does {
  my ( $self, @does ) = @_;
  $self->_set_does( [ uniq @does ] );
  return $self;
}







sub add_does {
  my ( $self, @items ) = @_;
  $self->_set_does( [ uniq @{ $self->_does }, @items ] );
  return $self;
}







sub interface {
  my $self = shift;
  return @{ $self->_interface };
}







sub set_interface {
  my ( $self, @interfaces ) = @_;
  $self->_set_interface( [ uniq @interfaces ] );
  return $self;
}







sub add_interface {
  my ( $self, @items ) = @_;
  $self->_set_interface( [ uniq @{ $self->_interface }, @items ] );
  return $self;
}

1;

__END__