File Coverage

lib/MetaPOD/Result.pm

Criterion	Covered	Total	%
statement	28	52	53.8
branch			n/a
condition			n/a
subroutine	9	19	47.3
pod	9	9	100.0
total	46	80	57.5

use 5.008;    # utf8
use strict;
use warnings;
use utf8;

package MetaPOD::Result;
$MetaPOD::Result::VERSION = '0.3.6';
# 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__