File Coverage

lib/MetaPOD/Role/Format.pm

Criterion	Covered	Total	%
statement	29	33	87.8
branch	5	6	83.3
condition			n/a
subroutine	9	10	90.0
pod	2	2	100.0
total	45	51	88.2

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

package MetaPOD::Role::Format;
$MetaPOD::Role::Format::VERSION = '0.3.6';
# ABSTRACT: Base role for common format routines

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

use Moo::Role qw( requires );
use Carp qw( croak );
use version 0.77;


























sub supported_versions { return qw( v1.0.0 ) }











sub _supported_versions {
  my $class = shift;
  return map { version->parse($_) } $class->supported_versions;
}













sub supports_version {
  my ( $class, $version ) = @_;
  return [ $class->supported_versions ]->[-1] if not defined $version;
  if ( $version !~ /^v/msx ) {
    croak q{Version specification does not begin with a 'v'};
  }
  my $v = version->parse($version);
  for my $supported ( $class->supported_versions ) {
    return $supported if $supported == $v;
  }
  croak "Version $v not supported. Supported versions: " . join q{,}, $class->supported_versions;
}

requires 'add_segment';

1;

__END__