File Coverage

blib/lib/Software/Security/Policy.pm

Criterion	Covered	Total	%
statement	6	17	35.2
branch	0	6	0.0
condition			n/a
subroutine	2	4	50.0
pod	2	2	100.0
total	10	29	34.4

use strict;
use warnings;
package Software::Security::Policy;
# ABSTRACT: packages that provide templated Security Policys

our $VERSION = '0.11'; # VERSION


sub name {
  my ($self) = @_;
  my $pkg = ref $self ? ref $self : $self;
  $pkg =~ s/^Software::Security::Policy:://;
  $pkg =~ s/::/ /g;
  return $pkg;
}


sub version  {
  my ($self) = @_;
  my $pkg = ref $self ? ref $self : $self;
  $pkg =~ s/.+:://;
  my (undef, @vparts) = split /_/, $pkg;

  return unless @vparts;
  return join '.', @vparts;
}



1;

__END__