App-Licensecheck

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

   SISSL for SISSL-1.1)

 [ Documentation ]
 - fix describe option --shortname-scheme (not bogus option
   --shortname-schemes) in changelog entry for release v3.2
 - fix trace output to include string for stepwise or_later grant trait
 - mention in POD when each option was introduced

 [ Test Suite ]
 - add README to source, documenting origin of Fedora tests
 - add test for not yet recognized PS-or-PDF-font exception
 - tighten test requirement on Regexp::Pattern::License
 - update tests to cover Regexp::Pattern::License v3.6.0

 [ Packaging ]
 - relax runtime requirement on Regexp::Pattern::License
 - tighten .gitignore file

 [ Other ]
 - tighten internal trait objects to require file attribute

doap.ttl  view on Meta::CPAN

			a doap-changeset:Documentation;
			rdfs:label "fix describe option --shortname-scheme (not bogus option --shortname-schemes) in changelog entry for release v3.2";
		], [
			a doap-changeset:Documentation;
			rdfs:label "mention in POD when each option was introduced";
		], [
			a doap-changeset:Bugfix;
			rdfs:label "fix resolve shortname not reusable in grant (e.g. SPDX using unversioned SISSL for SISSL-1.1)";
		], [
			a doap-changeset:Tests;
			rdfs:label "add test for not yet recognized PS-or-PDF-font exception";
		], [
			a doap-changeset:Packaging;
			rdfs:label "tighten .gitignore file";
		], [
			a doap-changeset:Tests;
			rdfs:label "add README to source, documenting origin of Fedora tests";
		], [
			a doap-changeset:Bugfix;
			rdfs:label "fix ignore atomic discoveries in areas already detected stepwise as a license, grant, or exception";
		], [

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

use SVG::Box;

enum SVG::Plot::AxisPosition <Zero SmallestValue LargestValue>;

unit class SVG::Plot;
has $.height            = 300;
has $.width             = 500;
has $.fill-width        = 0.80;
has $.label-font-size   = 12;
has $.legend-font-size  = $!label-font-size;

has @.legends is rw;
has @.values  is rw;
has @.x       is rw;    # only used in 'xy' variants
has @.labels  is rw = @!values[0].keys;
has @.links   is rw;

has $.plot-width        = $!width  * 0.80;
has $.plot-height       = $!height * (@!legends ?? 0.5 !! 0.65);

has $.title             = '';

has &.x-tick-step       = -> $max {
    10 ** $max.log10.floor  / 2
}

has &.y-tick-step       = -> $max {
    10 ** $max.log10.floor  / 2
}

has $.max-x-labels      = $!plot-width / (1.5 * $!label-font-size);

has $.label-spacing     = ($!height - $!plot-height) / 20;

has @.colors = <#3333ff #ffdd66 #aa2222 #228844 #eebb00 #8822bb>;

has $.min-y-axis        = Inf;

multi method plot(:$full = True, :$stacked-bars!) {

    my $label-skip = ceiling(@.values[0] / $.max-x-labels);

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

comparison to C<$.width> and C<$.height>, label texts and ticks might
exceed the total size, and be either clipped to or drawn outside the canvas,
depending on your SVG renderer.

=head2 $.fill-width
(Might be renamed to a more meaning name in future) For each bar in the bar
chart a certain width is allocated, but only a ratio of C<$.fill-width>  is
actually filled with a bar. Set to value between 0 and 1 to get spaces between
your bars, or to 1 if you don't  want spaces.

=head2 $.label-font-size
Font size for the axis labels

=head2 &.y-tick-step
Closure which computes the step size in which ticks and labels on the y axis
are drawn. It receives the maximal C<y> value as a single positional argument.

=head2 &.x-tick-step
Closure which computes the step size in which ticks and labels on the x axis
are drawn. It receives the maximal C<x> value as a single positional argument.

=head2 $.max-x-labels
Maximal number of plotted labels in C<x> direction. If you experience
overlapping labels you might set this to a smaller value. The default is
dependent on C<$.plot-width> and C<$.label-font-size>.

=head2 $.label-spacing

Distance between I<x> axis and labels. Also affects width of I<y> ticks and
distance of labels and I<y> ticks.

=head2 $.min-y-axis

By default the C<y> axis is scaled between the minimum and maximum y values.
Set this if you want the C<y> axis to scale off of a different lower bound.

t/reading.t  view on Meta::CPAN

{
	return [ grep {/^(?:header|tail|-----)/} msgs() ];
}

is [ parse($only_at_end) ], [
	'Artistic-2.0',
	'2009 Moritz Lenz and the SVG::Plot contributors (see file'
	],
	'Detected trailing Artistic license and owner';
is some_msgs(), [
	match qr/label-font-size;\n----- end header -----$/s,
	'tail offset set to 2498',
	match qr/^----- tail -----\n\};\n/s,
	],
	'logs', msgs();

$log->clear;
is [ parse($at_end) ],
	[ 'Expat', '1994-2012 Lua.org, PUC-Rio.' ],
	'Detected trailing Expat license and owner';
is some_msgs(), [

t/reading.t  view on Meta::CPAN

	'tail offset set to 669 (end of header)',
	match qr/^----- tail -----\n    Sollya is\n/s,
	],
	'logs', msgs();

$log->clear;
is [ parse( $only_at_end, @short_tail ) ],
	[ 'UNKNOWN', '' ],
	'Missed trailing Artistic license and owner';
is some_msgs(), [
	match qr/label-font-size;\n----- end header -----$/s,
	'tail offset set to 7488',
	match qr/^----- tail -----\n ft=perl6/s,
	],
	'logs', msgs();

$log->clear;
is [ parse( $at_end, @short_tail ) ],
	[ 'UNKNOWN', '' ],
	'Missed trailing Expat license and owner';
is some_msgs(), [