view release on metacpan or  search on metacpan

bin/licensecheck  view on Meta::CPAN

my $naming;
if (@schemes) {
	$naming = String::License::Naming::Custom->new( schemes => \@schemes );
}
else {
	$naming = String::License::Naming::Custom->new( schemes => \@schemes );
}

if ( $OPT{'list-licenses'} ) {
	say for $naming->list_licenses;
	exit 0;
}

if ( $OPT{'list-naming-schemes'} ) {
	say for $naming->list_schemes;
	exit 0;
}

if ( $OPT{text} ) {
	$log->warn('option -text ignored: obsolete');    # since 2015
}
if ( $OPT{noconf} ) {
	$log->warn('option --no-conf ingored: obsolete');    # since 2016
}
if ( $OPT{noverbose} ) {

t/devscripts/artistic-2-0-modules.pm  view on Meta::CPAN

$very_early

=head1 SYNOPSIS

    use SVG;
    use SVG::Plot;

    my @d1 = (0..100).map: { sin($_ / 10.0) };
    my @d2 = (0..100).map: { cos($_ / 10.0) };
    say SVG.serialize:
        SVG::Plot.new(
                width  => 400,
                height => 250,
                values => ([@d1], [@d2]),
                title  => 'sin(x/10), cos(x/10)',
        ).plot(:lines);


=head1 DESCRIPTION