File Coverage

blib/lib/MetaPOD/Role/Format.pm

Criterion	Covered	Total	%
statement	25	29	86.2
branch	5	6	83.3
condition			n/a
subroutine	8	9	88.8
pod	2	2	100.0
total	40	46	86.9

use 5.006;    # our
use strict;
use warnings;

package MetaPOD::Role::Format;

our $VERSION = 'v0.4.0';

# 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__