File Coverage

lib/MetaPOD/Format/JSON.pm

Criterion	Covered	Total	%
statement	30	31	96.7
branch	2	2	100.0
condition			n/a
subroutine	10	10	100.0
pod	2	2	100.0
total	44	45	97.7

use strict;
use warnings;

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

# ABSTRACT: Reference implementation of a C based MetaPOD Format


use Moo;
use Carp qw( croak );
use version 0.77;

with 'MetaPOD::Role::Format';

use MetaPOD::Format::JSON::v1;
use MetaPOD::Format::JSON::v1_1;

my $dispatch_table = [
  {
    version => version->parse('v1.0.0'),
    handler => 'MetaPOD::Format::JSON::v1'
  },
  {
    version => version->parse('v1.1.0'),
    handler => 'MetaPOD::Format::JSON::v1_1'
  }
];


sub supported_versions {
  return qw( v1.0.0 v1.1.0 );
}


sub add_segment {
  my ( $self, $segment, $result ) = @_;
  my $segver = $self->supports_version( $segment->{version} );
  for my $v ( @{$dispatch_table} ) {
    next unless $v->{version} == $segver;
    $v->{handler}->add_segment( $segment, $result );
    return $result;
  }
  croak "No implementation found for version $segver";
}

1;

__END__