File Coverage

blib/lib/Software/License/Artistic_1_0.pm

Criterion	Covered	Total	%
statement	17	19	89.4
branch	2	4	50.0
condition	2	3	66.6
subroutine	8	9	88.8
pod	6	6	100.0
total	35	41	85.3

use strict;
use warnings;
package Software::License::Artistic_1_0;
$Software::License::Artistic_1_0::VERSION = '0.104001';
use parent 'Software::License';
# ABSTRACT: The Artistic License

#pod =head1 OPTIONS
#pod
#pod The Artistic License 1.0 has a sometimes-omitted "aggregation clause" which
#pod reads:
#pod
#pod   8. The name of the Copyright Holder may not be used to endorse or promote
#pod   products derived from this software without specific prior written
#pod   permission.
#pod
#pod By default, this clause will be included.  To disable it, include the following
#pod pair when instantiating the license:
#pod
#pod   aggregation_clause => 0
#pod
#pod =head1 METHODS
#pod
#pod =head2 aggregation_clause
#pod
#pod This method returns whether the aggregation clause is allowed on this instance.
#pod By default this method returns true on instances and dies on the class.
#pod
#pod =cut

sub aggregation_clause {
  exists $_[0]->{aggregation_clause} ? $_[0]->{aggregation_clause} : 1
}

sub url { 'http://www.perlfoundation.org/artistic_license_1_0' }

sub name {
  my ($self) = @_;

  my $name = 'The Artistic License 1.0';
  if (ref $self and not $self->aggregation_clause) {
    $name .= ' without Aggregation Clause';
  }

  return $name;
}

sub meta_name  { 'artistic' }
sub meta2_name { 'artistic_1' }
sub spdx_expression { 'Artistic-1.0' }

1;

=pod

=encoding UTF-8

=head1 NAME

Software::License::Artistic_1_0 - The Artistic License

=head1 VERSION

version 0.104001

=head1 OPTIONS

The Artistic License 1.0 has a sometimes-omitted "aggregation clause" which
reads:

  8. The name of the Copyright Holder may not be used to endorse or promote
  products derived from this software without specific prior written
  permission.

By default, this clause will be included.  To disable it, include the following
pair when instantiating the license:

  aggregation_clause => 0

=head1 METHODS

=head2 aggregation_clause

This method returns whether the aggregation clause is allowed on this instance.
By default this method returns true on instances and dies on the class.

=head1 AUTHOR

Ricardo Signes

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2021 by Ricardo Signes.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut

__DATA__