File Coverage

lib/MetaPOD/Format/JSON/inherits/v1.pm

Criterion	Covered	Total	%
statement	19	20	95.0
branch	3	4	75.0
condition	3	6	50.0
subroutine	6	6	100.0
pod	1	1	100.0
total	32	37	86.4

use strict;
use warnings;

package MetaPOD::Format::JSON::inherits::v1;
BEGIN {
  $MetaPOD::Format::JSON::inherits::v1::AUTHORITY = 'cpan:KENTNL';
}
{
  $MetaPOD::Format::JSON::inherits::v1::VERSION = '0.3.0';
}

# ABSTRACT: Implementation of JSON/inherits format component


use Moo::Role;
use Carp qw(croak);


sub add_inherits {
  my ( $self, $inherits, $result ) = @_;
  if ( defined $inherits and not ref $inherits ) {
    return $result->add_inherits($inherits);
  }
  if ( defined $inherits and ref $inherits eq 'ARRAY' ) {
    return $result->add_inherits( @{$inherits} );
  }
  croak 'Unsupported reftype ' . ref $inherits;
}

1;

__END__