view release on metacpan or  search on metacpan

t/bundled/Software/License.pm  view on Meta::CPAN

use 5.006; # warnings
package Software::License;
our $VERSION = 9999;

sub new {
  my ($class, $arg) = @_;

  # XXX changed from Carp::croak to die
  die "no copyright holder specified" unless $arg->{holder};

  bless $arg => $class;
}


sub year   { defined $_[0]->{year} ? $_[0]->{year} : (localtime)[5]+1900 }
sub holder { $_[0]->{holder} }

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