Result:
found more than 649 distributions - search limited to the first 2001 files matching your query ( run in 2.622 )


Business-EDI
27 results

 view release on metacpan or  search on metacpan

lib/Business/EDI/CodeList/AllowanceOrChargeCodeQualifier.pm  view on Meta::CPAN 

    'Charge is related to a line item. It can override a default charge.' ],
'N' => [ 'No allowance or charge',
    'No increases or reduction in price (list or stated) are included.' ],
'O' => [ 'About',
    'To be construed as allowing a difference not exceeding 10 % more or 10 % less than the amount which it refers.' ],
'P' => [ 'Minus (percentage)',
    'The lesser value expressed in percentage.' ],
'Q' => [ 'Minus (amount)',
    'The lesser value expressed in amount.' ],
'R' => [ 'Plus (percentage)',
    'The greater value expressed in percentage.' ],
'S' => [ 'Plus (amount)',
    'The greater value expressed in amount.' ],
'T' => [ 'Plus/minus (percentage)',
    'The greater/lesser value expressed in percentage.' ],
'U' => [ 'Plus/minus (amount)',
    'The greater/lesser value expressed in amount.' ],
'V' => [ 'No allowance',
    'Code specifying that there is no allowance.' ],
'W' => [ 'No charge',

 view all matches for this distribution


Business-Edifact-Interchange
2 results

 view release on metacpan or  search on metacpan

lib/Business/Edifact/Message.pm  view on Meta::CPAN 

=cut

sub handle_pcd {
    my ( $self, $data_arr ) = @_;
    if ( $self->{item_alc_flag} ) {
        $self->{lines}->[-1]->{item_allowance_or_charge}->[-1]->{percentage} =
          $data_arr->[0]->[1];
        delete $self->{item_alc_flag};
    }
    return;

 view all matches for this distribution


Business-Intelligence-MicroStrategy-CommandManager
1 match

 view release on metacpan or  search on metacpan

lib/Business/Intelligence/MicroStrategy/CommandManager.pm  view on Meta::CPAN 

^ is used as the escape character to specify a string constant inside an expression.
{} are used to indicate a pair of join element list qualification.
When it comes to ambiguous objects within an expression, there are two ways to solve it:
	a. To specify the object with its full path
	b. Place all of the ambiguous objects in a single folder and specify this folder in the command using the BREAKAMBIGUITY reserved word.
When specifying the percentage value using Rank<ByValue=False>, please specify a fraction value between 0 and 1 that corresponds to the percentage value. For example, forty percent (40%) should be specified as 0.4.
Examples of different qualitications:
1. Attribute qualification:
	[\Schema Objects\Attributes\Time\Year]@ID IN ("2003, 2004")
	[\Schema Objects\Attributes\Time\Year]@ID =2003
	[\Schema Objects\Attributes\Products\Category]@DESC IN ("Books", "Movies", "Music", "Electronics")

lib/Business/Intelligence/MicroStrategy/CommandManager.pm  view on Meta::CPAN 

		Bottom Rank: Rank([\Public Objects\Metrics\Sales Metrics\Profit]) <=  3
		Top Rank: Rank<ASC=False>([Revenue Contribution to All Products Abs.]) <= 5
		Percent: Rank<ByValue=False>([\Public Objects\Metrics\Sales Metrics\Profit]) <= 0.1
	*Note for Rank function: There are two parameters that control its behavior. ASC and ByValue.
			         When ASC is set to true, the ranking results are sorted in ascending order; when its value is set to false, the ranking results are sorted in descending order.
			         When ByValue is set to true, the ranking results represent their value order; whereas, when ByValue is set to false, the ranking results represent their percentage order.
3. Shortcut to a Report Qualification
	Just specify the report name:
	[Revenue vs. Forecast] or
	[\Public Objects\Reports\Revenue vs. Forecast]
4. Shortcut to a Filter

lib/Business/Intelligence/MicroStrategy/CommandManager.pm  view on Meta::CPAN 

        MAXNOXMLDRILLPATHS       => "number_of_xml_drill_paths",
        MAXMEMXML                => "number_MBytes",
        MAXMEMPDF                => "number_MBytes",
        MAXMEMEXCEL              => "number_MBytes",
        ENABLEWEBTHROTTLING      => "TRUE" | "FALSE",
        MAXMEMUSAGE              => "percentage",
        MINFREEMEM               => "percentage",
        ENABLEMEMALLOC           => "TRUE" | "FALSE",
        MAXALLOCSIZE             => "number_MBytes",
        ENABLEMEMCONTRACT        => "TRUE" | "FALSE",
        MINRESERVEDMEM           => "NUMBER_MBYTES",
        MINRESERVEDMEMPERCENTAGE => "PERCENTAGE",
        MAXVIRTUALADDRSPACE      => "percentage",
        MEMIDLETIME              => "seconds",
        WORKSETDIR               => "folder_path",
        MAXRAMWORKSET            => "number_KBytes"
    );

lib/Business/Intelligence/MicroStrategy/CommandManager.pm  view on Meta::CPAN 

	[MAXNOXMLDRILLPATHS <number_of_xml_drill_paths>] 
	[MAXMEMXML number_MBytes] 
	[MAXMEMPDF number_MBytes] 
	[MAXMEMEXCEL number_MBytes] 
	[ENABLEWEBTHROTTLING (TRUE | FALSE)] 
	[MAXMEMUSAGE <percentage>] 
	[MINFREEMEM <percentage>] 
	[ENABLEMEMALLOC (TRUE | FALSE)] 
	[MAXALLOCSIZE <number_MBytes>] 
	[ENABLEMEMCONTRACT (TRUE | FALSE)] 
	[(MINRESERVEDMEM <number_MBytes> | MINRESERVEDMEMPERCENTAGE <percentage>)] 
	[MAXVIRTUALADDRSPACE <percentage>] 
	[MEMIDLETIME <seconds>] 
	[WORKSETDIR "<folder_path>"] 
	[MAXRAMWORKSET <number_KBytes>];

ALTER SERVER CONFIGURATION MAXCONNECTIONTHREADS 5 BACKUPFREQ 0 USEPERFORMANCEMON TRUE USEMSTRSCHEDULER TRUE BALSERVERTHREADS FALSE HISTORYDIR ".\INBOX\dsmith" MAXNOMESSAGES 10 MAXNOJOBS 10000 MAXNOCLIENTCONNS 500 WEBIDLETIME 0 MAXNOXMLCELLS 500000 MA...

lib/Business/Intelligence/MicroStrategy/CommandManager.pm  view on Meta::CPAN 

^ is used as the escape character to specify a string constant inside an expression.
{} are used to indicate a pair of join element list qualification.
When it comes to ambiguous objects within an expression, there are two ways to solve it:
	a. To specify the object with its full path
	b. Place all of the ambiguous objects in a single folder and specify this folder in the command using the BREAKAMBIGUITY reserved word.
When specifying the percentage value using Rank<ByValue=False>, please specify a fraction value between 0 and 1 that corresponds to the percentage value. For example, forty percent (40%) should be specified as 0.4.
Examples of different qualitications:
1. Attribute qualification:
	[\Schema Objects\Attributes\Time\Year]@ID IN ("2003, 2004")
	[\Schema Objects\Attributes\Time\Year]@ID =2003
	[\Schema Objects\Attributes\Products\Category]@DESC IN ("Books", "Movies", "Music", "Electronics")

lib/Business/Intelligence/MicroStrategy/CommandManager.pm  view on Meta::CPAN 

		Bottom Rank: Rank([\Public Objects\Metrics\Sales Metrics\Profit]) <=  3
		Top Rank: Rank<ASC=False>([Revenue Contribution to All Products Abs.]) <= 5
		Percent: Rank<ByValue=False>([\Public Objects\Metrics\Sales Metrics\Profit]) <= 0.1
	*Note for Rank function: There are two parameters that control its behavior. ASC and ByValue.
			         When ASC is set to true, the ranking results are sorted in ascending order; when its value is set to false, the ranking results are sorted in descending order.
			         When ByValue is set to true, the ranking results represent their value order; whereas, when ByValue is set to false, the ranking results represent their percentage order.
3. Shortcut to a Report Qualification
	Just specify the report name:
	[Revenue vs. Forecast] or
	[\Public Objects\Reports\Revenue vs. Forecast]
4. Shortcut to a Filter

 view all matches for this distribution


Business-Shipping
2 results

 view release on metacpan or  search on metacpan

lib/Business/Shipping/UPS_Offline/Shipment.pm  view on Meta::CPAN 


=item * disable_hundredweight( )

If true, don't estimate the hundredweight rate even if it would otherwise be possible.

=item * hundredweight_margin( $percent )

If the shipment weight is only $percent (default 10%) higher than the required amount to qualify for 
hundredweight shipping, then do not calculate hundredweight.  This is to guard against the chance that the 
actual shipment weight turns out to be lower than what is used for estimation, resulting in failed eligibility
for hundredweight rates and a much higher rate than estimated.

=back

 view all matches for this distribution


Business-Tax-ID-PPH21
3 results

 view release on metacpan or  search on metacpan

lib/Business/Tax/ID/PPH21.pm  view on Meta::CPAN 

    my %args = @_;
    my $year = $args{year} or return [400, "Please specify year"];
    my $resmeta = {
        'table.fields' => [qw/xmin max rate/],
        'table.field_formats' => [
            undef, undef, ['percent', {sprintf=>'%3.0f%%'}]
        ],
    };
    if ($year >= 2022 && $year <= $latest_supported_year) {
        state $res = [
            200, "OK",

lib/Business/Tax/ID/PPH21.pm  view on Meta::CPAN 

     { xmin => 250000000, max => 500000000, rate => 0.25 },
     { xmin => 500000000, max => 5000000000, rate => 0.3 },
     { xmin => 5000000000, rate => 0.35 },
   ],
   {
     "table.field_formats" => [undef, undef, ["percent", { sprintf => "%3.0f%%" }]],
     "table.fields"        => ["xmin", "max", "rate"],
   },
 ]

=back

 view all matches for this distribution


Business-Tax-US-Form_1040-Worksheets
1 match

 view release on metacpan or  search on metacpan

lib/Business/Tax/US/Form_1040/Worksheets.pm  view on Meta::CPAN 


=cut

my %data_2022_ssb = (
    worksheet_line_count    => 18,
    ssa_percentage          => 0.5,
    percentage_a            => 0.85,
    percentage_b            => 0.85,
    percentage_c            => 0.85,
    married_amt_a           => 32000,
    single_amt_a            => 25000,
    married_amt_b           => 12000,
    single_amt_b            =>  9000,
    other_percentage        => 0.5,
);
# inspection of 2023 Soc Sec worksheet indicates no change in
# parameters
my %data_2023_ssb = map { $_ => $data_2022_ssb{$_} } keys %data_2022_ssb;
# inspection of 2024 Soc Sec worksheet indicates no change in

lib/Business/Tax/US/Form_1040/Worksheets.pm  view on Meta::CPAN 

            head_of_household_amt_a     => 55800,
            single_amt_b                => 459750,
            married_sep_amt_b           => 258600,
            married_amt_b               => 517200,
            head_of_household_amt_b     => 488500,
            percentage_a                => 0.15,
            percentage_b                => 0.20,
        },
        2023 => {
            worksheet_line_count        => 21,
            single_or_married_sep_amt_a => 44625,
            married_amt_a               => 89250,
            head_of_household_amt_a     => 59750,
            single_amt_b                => 492300,
            married_sep_amt_b           => 276900,
            married_amt_b               => 553850,
            head_of_household_amt_b     => 523050,
            percentage_a                => 0.15,
            percentage_b                => 0.20,
        },
        2024 => {
            worksheet_line_count        => 21,
            single_or_married_sep_amt_a => 47025,
            married_amt_a               => 94050,
            head_of_household_amt_a     => 63000,
            single_amt_b                => 518900,
            married_sep_amt_b           => 291850,
            married_amt_b               => 583750,
            head_of_household_amt_b     => 551350,
            percentage_a                => 0.15,
            percentage_b                => 0.20,
        },
        2025 => {
            worksheet_line_count        => 21,
            single_or_married_sep_amt_a => 48350,
            married_amt_a               => 96700,
            head_of_household_amt_a     => 64750,
            single_amt_b                => 533400,
            married_sep_amt_b           => 300000,
            married_amt_b               => 600050,
            head_of_household_amt_b     => 566700,
            percentage_a                => 0.15,
            percentage_b                => 0.20,
        },
    },
);

sub social_security_benefits {

lib/Business/Tax/US/Form_1040/Worksheets.pm  view on Meta::CPAN 

    }
    $data->{status} = $inputs->{status};
    my @lines = (undef, (undef) x $params{ssb}{$filing_year}{worksheet_line_count});
    my $formatted_lines;
    $lines[1] = $data->{box5};
    $lines[2] = $lines[1] * $params{ssb}{$filing_year}{ssa_percentage};
    $lines[3] =
        $data->{l1z} +
        $data->{l2b} +
        $data->{l3b} +
        $data->{l4b} +

lib/Business/Tax/US/Form_1040/Worksheets.pm  view on Meta::CPAN 

          worksheet_data => $formatted_lines,
        };
    }
    $lines[7] = $lines[5] - $lines[6];
    if ($data->{status} eq 'married_sep') {
        $lines[16] = $lines[7] * $params{ssb}{$filing_year}{percentage_b};
        $lines[17] = $lines[1] * $params{ssb}{$filing_year}{percentage_c};
        $lines[18] = min($lines[16], $lines[17]);
        $formatted_lines = decimal_lines(\@lines);
        return {
            taxable_benefits => $lines[18],
            worksheet_data => $formatted_lines,

lib/Business/Tax/US/Form_1040/Worksheets.pm  view on Meta::CPAN 

        ? $params{ssb}{$filing_year}{married_amt_b}
        : $params{ssb}{$filing_year}{single_amt_b};
    my $diff = $lines[9] - $lines[10];
    $lines[11] = $diff > 0 ? $diff : 0;
    $lines[12] = min($lines[9], $lines[10]);
    $lines[13] = $lines[12] * $params{ssb}{$filing_year}{other_percentage};
    $lines[14] = min($lines[2], $lines[13]);
    my $x = $lines[11] * $params{ssb}{$filing_year}{percentage_a};
    $lines[15] = $x > 0 ? $x : 0;
    $lines[16] = $lines[14] + $lines[15];
    $lines[17] = $lines[1] * $params{ssb}{$filing_year}{percentage_c};
    $lines[18] = min($lines[16], $lines[17]);
    $formatted_lines = decimal_lines(\@lines);
    return {
        taxable_benefits => $lines[18],
        worksheet_data => $formatted_lines,

lib/Business/Tax/US/Form_1040/Worksheets.pm  view on Meta::CPAN 

    $lines[14] = min($lines[1], $lines[13]);
    $lines[15] = $lines[5] + $lines[9];
    my $diff1 = $lines[14] - $lines[15];
    $lines[16] = $diff1 > 0 ? $diff1 : 0;
    $lines[17] = min($lines[12], $lines[16]);
    $lines[18] = $lines[17] * $params{qd}{$filing_year}{percentage_a};
    $lines[19] = $lines[9] + $lines[17];
    $lines[20] = $lines[10] - $lines[19];
    $lines[21] = $lines[20] * $params{qd}{$filing_year}{percentage_b};
    # We will need to use 5, 18, 21, 22 and 1
    my @formatted_lines = (
        $lines[0], # undef
        map { sprintf("%.2f" => $lines[$_]) } (1..$#lines),
    );

 view all matches for this distribution


Business-US_Amort
1 match

 view release on metacpan or  search on metacpan

lib/Business/US_Amort.pm  view on Meta::CPAN 

###########################################################################

%Proto =  # public attributes and their values
(
  principal => 0,
  interest_rate => 8, # annual, percent
  term => 30, # years (target term)
  error => '',
  cent_rounding => 1,
  start_date => undef,

lib/Business/US_Amort.pm  view on Meta::CPAN 

    $this->{'error'} = 'term must be positive and nonzero';
    return 0;
  }

  # The only real voodoo is here:
  my $j = # monthly interest rate in decimal -- in percent, not like .0875
    $this->{'interest_rate'} / 1200;
  my $n = # number of months the loan is amortized over
    int($this->{'term'} * 12);

  #print "j: $j\n";

 view all matches for this distribution


Business-WebMoney
1 match

 view release on metacpan or  search on metacpan

lib/Business/WebMoney/Exchanger.pm  view on Meta::CPAN 


				} elsif ($key eq 'BaseRate') {

					$row{rate} = ($value > 0) ? ($value + 0) : (-1 / $value);

				} elsif (my ($percent) = ($key =~ /^Plus(\d+)$/)) {

					# 005 => 0.05
					# 01 => 0.1
					# 02 => 0.2
					# ...
					# 1 => 1
					# 2 => 2
					# ...
					$percent =~ s/^0(0*)/0.$1/;

					$row{$percent} = $value;

				} else {

					$row{$key} = $value;
				}

 view all matches for this distribution


Business-cXML
3 results

 view release on metacpan or  search on metacpan

lib/Business/cXML/Amount/TaxDetail.pm  view on Meta::CPAN 

use base qw(Business::cXML::Object);

use constant NODENAME => 'TaxDetail';
use constant PROPERTIES => (
	category    => '',
	percent     => undef,
	basis       => undef,
	tax         => (Business::cXML::Amount->new()),
	description => undef,
	purpose     => undef,
);

lib/Business/cXML/Amount/TaxDetail.pm  view on Meta::CPAN 


sub from_node {
	my ($self, $el) = @_;

	$el->ferry($self, {
		percentageRate     => 'percent',
		isVatRecoverable   => '__UNIMPLEMENTED',
		taxPointDate       => '__UNIMPLEMENTED',
		paymentDate        => '__UNIMPLEMENTED',
		isTriangularTransaction => '__UNIMPLEMENTED',
		exemptDetail       => '__UNIMPLEMENTED',

lib/Business/cXML/Amount/TaxDetail.pm  view on Meta::CPAN 

sub to_node {
	my ($self, $doc) = @_;
	my $node = $doc->create($self->{_nodeName}, undef,
		purpose        => $self->{purpose},
		category       => $self->{category},
		percentageRate => $self->{percent},
	);

	$node->add($self->{basis}->to_node($node)) if defined $self->{basis};
	$node->add($self->{tax}->to_node($node));
	# TaxLocation

lib/Business/cXML/Amount/TaxDetail.pm  view on Meta::CPAN 


=item C<B<category>>

Mandatory, i.e. C<gst>

=item C<B<percent>>

Optional, i.e. C<8>

=item C<B<basis>>

 view all matches for this distribution


Business-eWAY-RapidAPI
1 match

 view release on metacpan or  search on metacpan

examples/web/Scripts/jquery-ui-1.8.11.custom.min.js  view on Meta::CPAN 

 * Depends:
 *   jquery.ui.core.js
 *   jquery.ui.widget.js
 */
(function(b,d){b.widget("ui.progressbar",{options:{value:0,max:100},min:0,_create:function(){this.element.addClass("ui-progressbar ui-widget ui-widget-content ui-corner-all").attr({role:"progressbar","aria-valuemin":this.min,"aria-valuemax":this.opti...
this.valueDiv.remove();b.Widget.prototype.destroy.apply(this,arguments)},value:function(a){if(a===d)return this._value();this._setOption("value",a);return this},_setOption:function(a,c){if(a==="value"){this.options.value=c;this._refreshValue();this._...
this._value()/this.options.max},_refreshValue:function(){var a=this.value(),c=this._percentage();if(this.oldValue!==a){this.oldValue=a;this._trigger("change")}this.valueDiv.toggleClass("ui-corner-right",a===this.options.max).width(c.toFixed(0)+"%");t...
;/*
 * jQuery UI Effects 1.8.11
 *
 * Copyright 2011, AUTHORS.txt (http://jqueryui.com/about)
 * Dual licensed under the MIT or GPL Version 2 licenses.

examples/web/Scripts/jquery-ui-1.8.11.custom.min.js  view on Meta::CPAN 

 * http://docs.jquery.com/UI/Effects/Scale
 *
 * Depends:
 *	jquery.effects.core.js
 */
(function(c){c.effects.puff=function(b){return this.queue(function(){var a=c(this),e=c.effects.setMode(a,b.options.mode||"hide"),g=parseInt(b.options.percent,10)||150,h=g/100,i={height:a.height(),width:a.width()};c.extend(b.options,{fade:true,mode:e,...
b.options.mode||"effect"),h=parseInt(b.options.percent,10)||(parseInt(b.options.percent,10)==0?0:g=="hide"?0:100),i=b.options.direction||"both",f=b.options.origin;if(g!="effect"){e.origin=f||["middle","center"];e.restore=true}f={height:a.height(),wid...
1;a.to.opacity=0}}e.from=a.from;e.to=a.to;e.mode=g;a.effect("size",e,b.duration,b.callback);a.dequeue()})};c.effects.size=function(b){return this.queue(function(){var a=c(this),e=["position","top","bottom","left","right","width","height","overflow","...
p=c.effects.setMode(a,b.options.mode||"effect"),n=b.options.restore||false,m=b.options.scale||"both",l=b.options.origin,j={height:a.height(),width:a.width()};a.from=b.options.from||j;a.to=b.options.to||j;if(l){l=c.effects.getBaseline(l,j);a.from.top=...
if(m=="box"||m=="both"){if(d.from.y!=d.to.y){e=e.concat(f);a.from=c.effects.setTransition(a,f,d.from.y,a.from);a.to=c.effects.setTransition(a,f,d.to.y,a.to)}if(d.from.x!=d.to.x){e=e.concat(k);a.from=c.effects.setTransition(a,k,d.from.x,a.from);a.to=c...
a.css("overflow","hidden").css(a.from);if(m=="content"||m=="both"){f=f.concat(["marginTop","marginBottom"]).concat(i);k=k.concat(["marginLeft","marginRight"]);h=e.concat(f).concat(k);a.find("*[width]").each(function(){child=c(this);n&&c.effects.save(...
child.to=c.effects.setTransition(child,f,d.to.y,child.to)}if(d.from.x!=d.to.x){child.from=c.effects.setTransition(child,k,d.from.x,child.from);child.to=c.effects.setTransition(child,k,d.to.x,child.to)}child.css(child.from);child.animate(child.to,b.du...

 view all matches for this distribution


BusyBird-Input-Feed
1 match

 view release on metacpan or  search on metacpan

t/samples/turner_press.rss  view on Meta::CPAN 

        &lt;div class=&quot;field-items&quot;&gt;
              &lt;div class=&quot;field-item even&quot; property=&quot;content:encoded&quot;&gt;&lt;p&gt;&lt;strong&gt;MANILA (September 9, 2014) –&lt;/strong&gt; Cartoon Network has extended its global animation talent search further into Southeas...
&lt;p&gt;Today, Manila-based production studio Top Draw Animation opened its doors for the very first time to local animation and TV industry representatives who experienced an exclusive studio tour and a sneak-peek of &lt;em&gt;Monster Beach&lt;/em&...
&lt;p&gt;Silas Hickey, Cartoon Network’s Creative Director for Animation Development in Asia Pacific, said: “Our International Shorts Program signals serious intent that we are continuing to support the animation industry in Asia Pacific. We trul...
&lt;p&gt;After the tour, Top Draw Animation staff demonstrated their enthusiasm for the projects they are working on by dressing up as their favorite anime characters from &lt;em&gt;Exchange Student Zero&lt;/em&gt;, another project that features the ...
&lt;p&gt;Original content makes up a large percentage of Cartoon Network’s line-up, and series like &lt;em&gt;Adventure Time&lt;/em&gt;, &lt;em&gt;The Amazing World of Gumball&lt;/em&gt; and &lt;em&gt;Uncle Grandpa&lt;/em&gt; are a major factor tha...
&lt;p&gt;In Asia Pacific, &lt;em&gt;Monster Beach&lt;/em&gt; premieres across Southeast Asia, Australia and New Zealand on Halloween (October 31). &lt;em&gt;Exchange Student Zero&lt;/em&gt;, an animated series, will premiere on Cartoon Network in mid...
&lt;p align=&quot;center&quot;&gt;&lt;strong&gt;-Ends-&lt;/strong&gt;&lt;/p&gt;
&lt;p&gt; &lt;/p&gt;
&lt;p&gt;&lt;em&gt;&lt;strong&gt;[1]&lt;/strong&gt;&lt;/em&gt;&lt;em&gt; &lt;strong&gt;Data Source:&lt;/strong&gt; Kantar Philippines, national; 1 January 2010 – 28 August 2014 (all-week 0600-2359); CS 2-12&lt;/em&gt;&lt;/p&gt;
&lt;p&gt; &lt;/p&gt;

 view all matches for this distribution


BusyBird
2 results

 view release on metacpan or  search on metacpan

share/www/static/jquery.js  view on Meta::CPAN 

				ret = jQuery.style( elem, name );
			}

			// A tribute to the "awesome hack by Dean Edwards"
			// Chrome < 17 and Safari 5.0 uses "computed value" instead of "used value" for margin-right
			// Safari 5.1.7 (at least) returns percentage for a larger set of values, but width seems to be reliably pixels
			// this is against the CSSOM draft spec: http://dev.w3.org/csswg/cssom/#resolved-values
			if ( rnumnonpx.test( ret ) && rmargin.test( name ) ) {

				// Remember the original values
				width = style.width;

share/www/static/jquery.js  view on Meta::CPAN 

			}
		};
	}

	// Webkit bug: https://bugs.webkit.org/show_bug.cgi?id=29084
	// getComputedStyle returns percent when specified for top/left/bottom/right
	// rather than make the css module depend on the offset module, we just check for it here
	if ( !jQuery.support.pixelPosition && jQuery.fn.position ) {
		jQuery.each( [ "top", "left" ], function( i, prop ) {
			jQuery.cssHooks[ prop ] = {
				get: function( elem, computed ) {
					if ( computed ) {
						computed = curCSS( elem, prop );
						// if curCSS returns percentage, fallback to offset
						return rnumnonpx.test( computed ) ?
							jQuery( elem ).position()[ prop ] + "px" :
							computed;
					}
				}

share/www/static/jquery.js  view on Meta::CPAN 

			}
			var currentTime = fxNow || createFxNow(),
				remaining = Math.max( 0, animation.startTime + animation.duration - currentTime ),
				// archaic crash bug won't allow us to use 1 - ( 0.5 || 0 ) (#12497)
				temp = remaining / animation.duration || 0,
				percent = 1 - temp,
				index = 0,
				length = animation.tweens.length;

			for ( ; index < length ; index++ ) {
				animation.tweens[ index ].run( percent );
			}

			deferred.notifyWith( elem, [ animation, percent, remaining ]);

			if ( percent < 1 && length ) {
				return remaining;
			} else {
				deferred.resolveWith( elem, [ animation ] );
				return false;
			}

share/www/static/jquery.js  view on Meta::CPAN 


		return hooks && hooks.get ?
			hooks.get( this ) :
			Tween.propHooks._default.get( this );
	},
	run: function( percent ) {
		var eased,
			hooks = Tween.propHooks[ this.prop ];

		if ( this.options.duration ) {
			this.pos = eased = jQuery.easing[ this.easing ](
				percent, this.options.duration * percent, 0, 1, this.options.duration
			);
		} else {
			this.pos = eased = percent;
		}
		this.now = ( this.end - this.start ) * eased + this.start;

		if ( this.options.step ) {
			this.options.step.call( this.elem, this.now, this );

 view all matches for this distribution


BuzzSaw
1 match

 view release on metacpan or  search on metacpan

docs/intro.html  view on Meta::CPAN 

    not the actual true content) then log messages should not be
    parsed more than once.</p>

    <h3>Allow reprocessing of the log messages</h3>

    <p>Clearly if the approach is to ignore a large percentage of the
    log messages and avoid reparsing previously seen messages then
    occasionally a need to re-process the log files will occur. This
    is most likely when an administrator has a new requirement to
    analyse data related to some facility and generate long-term
    statistics. It should be possible to go back through the system

 view all matches for this distribution


C-Scan-Constants
1 match

 view release on metacpan or  search on metacpan

contrib/LICENSE  view on Meta::CPAN 

      "Legal Entity" shall mean the union of the acting entity and all
      other entities that control, are controlled by, or are under common
      control with that entity. For the purposes of this definition,
      "control" means (i) the power, direct or indirect, to cause the
      direction or management of such entity, whether by contract or
      otherwise, or (ii) ownership of fifty percent (50%) or more of the
      outstanding shares, or (iii) beneficial ownership of such entity.

      "You" (or "Your") shall mean an individual or Legal Entity
      exercising permissions granted by this License.

 view all matches for this distribution


C-Utility
3 results

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN 


This module contains functions which assist in automatic generation of
C programs. For work with strings, "convert_to_c_string" converts a
string into a string with characters correctly escaped for use in a C
program. "convert_to_c_string_pc" does the same thing plus escaping
percent signs so that they may be used as format strings for
printf. "escape_string" escapes double quotes. "valid_c_variable"
checks whether a string is valid as a C variable. 

The module contains various line directive related
functions. "line_directive" prints a C line directive. "linein"

 view all matches for this distribution


C-sparse
2 results

 view release on metacpan or  search on metacpan

src/sparse-0.4.4/LICENSE  view on Meta::CPAN 

whether in upper or lower case, means an individual or a legal entity exercising 
rights under, and complying with all of the terms of, this License. For legal 
entities, "You" includes any entity that controls, is controlled by, or is under 
common control with you. For purposes of this definition, "control" means (i) 
the power, direct or indirect, to cause the direction or management of such 
entity, whether by contract or otherwise, or (ii) ownership of fifty percent 
(50%) or more of the outstanding shares, or (iii) beneficial ownership of such 
entity.

15) Right to Use. You may use the Original Work in all ways not otherwise 
restricted or conditioned by this License or by law, and Licensor promises not

 view all matches for this distribution


CAD-Drawing
1 match

 view release on metacpan or  search on metacpan

lib/CAD/Drawing.pm  view on Meta::CPAN 

	my ($points, $opt) = @_;
	my %opts;
	(ref($opt) eq "HASH") && (%opts = %$opt);
	# maybe we should allow three, since we actually use three?
	(scalar(@$points) == 2) or croak("cannot draw ray without 2 points");
	# use a percentage of length, with a 15deg rotation ccw from
	# reversed direction (later, add options.)
	my $portion = 0.05;
	my $rotate = $pi / 12;
	my $rev = NewVec(line_vec(@$points)->ScalarMult($portion * -1));
	my $length = $rev->Length();

 view all matches for this distribution


CAD-Firemen
2 results

 view release on metacpan or  search on metacpan

lib/CAD/Firemen/Common.pm  view on Meta::CPAN 

  }

  my $terminalWidth = _terminalWidth() - 2;
  my $relValue = sprintf("%.0f", $value / $max * 100);
  $label .= " [";
  # - 6 is the percent itself (e.g.: " 69%, ")
  my $valueLen = $terminalWidth - length($label) - 1 - 6 - length($value);
  if($valueLen > 100){
    $valueLen = 100;
  }
  my $signs = floor($valueLen * $relValue / 100);

lib/CAD/Firemen/Common.pm  view on Meta::CPAN 


Prints a text block with an specified indentation.

=head2 buildStatistic

Builds a bar of = to display a percentage value of the ratio between $value and $max.

=head2 getInstallationPath

Method parses $ENV{PATH} and tries to filter out all Firemen related paths.
Afterwards, if more than one is found, the user can select which one he wants

 view all matches for this distribution


CAM-PDF
1 match

 view release on metacpan or  search on metacpan

bin/crunchjpgs.pl  view on Meta::CPAN 

            if ($jpgsize < $oldsize) {
              $doc->replaceObject($objnum, $jpg, 8, 1);

              $newtotsize += $jpgsize;

              my $percent = sprintf '%.1f', 100 * ($oldsize - $jpgsize) / $oldsize;
              _inform("\tcompressed $oldsize -> $jpgsize ($percent%)", $opts{verbose});
            $doneobjs{$objnum} = 1;
            $rimages++;
            } else {
              _inform("\tskipped $oldsize -> $jpgsize", $opts{verbose});
            }

bin/crunchjpgs.pl  view on Meta::CPAN 


my $newcontentsize = $doc->{contentlength};

if ($opts{verbose})
{
   my $contentpercent = sprintf '%.1f', $oldcontentsize ? 100 * ($oldcontentsize - $newcontentsize) / $oldcontentsize : 0;
   my $totpercent = sprintf '%.1f', $oldtotsize ? 100 * ($oldtotsize - $newtotsize) / $oldtotsize : 0;
   _inform('Compression summary:', 1);
   _inform("  Document: $oldcontentsize -> $newcontentsize ($contentpercent%)", 1);
   _inform("  Images: $oldtotsize -> $newtotsize ($totpercent%)", 1);
}

sub _isjpg
{
   my $im = shift;

 view all matches for this distribution


CAM-XML
1 match

 view release on metacpan or  search on metacpan

lib/CAM/XML.pm  view on Meta::CPAN 


=head1 CODING

This module has just over 97% code coverage in its regression tests,
as reported by Devel::Cover via C<perl Build testcover>.  The
remaining few percent is mostly error conditions and a few conditional
defaults on internal methods.

This module passes most of the Perl Best Practices guidelines, as
enforced by Perl::Critic v0.14.  A notable exceptions is the
legacy use of C<camelCase> subroutine names.

 view all matches for this distribution


CEFACT-Unit
1 match

 view release on metacpan or  search on metacpan

share/code-list.csv  view on Meta::CPAN 

X,54,theoretical tonne,,3.1,,
,56,sitas,A unit of area for tin plate equal to a surface area of 100 square metres.,3.9,,
,57,mesh,A unit of count defining the number of strands per inch as a measure of the fineness of a woven product.,3.9,,
,58,net kilogram,A unit of mass defining the total number of kilograms after deductions.,3.1,,
,59,part per million,A unit of proportion equal to 10⁻⁶.,3.7,ppm,1 x 10⁻⁶
,60,percent weight,A unit of proportion equal to 10⁻².,3.7,,1 x 10⁻²
,61,part per billion (US),A unit of proportion equal to 10⁻⁹.,3.7,ppb,1 x 10⁻⁹
X,62,percent per 1000 hour,,3.7,,
X,63,failure rate in time,,3.9,,
D,64,"pound per square inch, gauge",,3.1,,"7,030 696 x 10² kg/m²"
D,66,oersted,,3.5,Oe,"7,957 747 x 10 A/m"
X,69,test specific scale,,3.9,,
X,71,volt ampere per pound,,3.9,,

share/code-list.csv  view on Meta::CPAN 

,H20,cubic kilometre,,1S,km³,10⁹ m³
,H21,blank,A unit of count defining the number of blanks.,3.2,,
,H22,volt square inch per pound-force,,2,V/(lbf/in²),"1,450 377 439 8 × 10⁻⁴ m³ x s⁻¹ x A⁻¹"
,H23,volt per inch,,2,V/in,"3,937 007 874 × 10¹ m x kg x s⁻³ x A⁻¹"
,H24,volt per microsecond,,1S,V/µs,10⁶ V/s
,H25,percent per kelvin,"A unit of proportion, equal to 0.01, in relation to the SI base unit Kelvin.",3.7,%/K,10⁻² K⁻¹
,H26,ohm per metre,,1M,Ω/m,Ω/m
,H27,degree per metre,,2,°/m,"1,745 329 x 10⁻² rad/m"
,H28,microfarad per kilometre,,1S,µF/km,10⁻⁹ F/m
,H29,microgram per litre,,1M,µg/l,10⁻⁶ m⁻³ x kg
,H30,square micrometre (square micron),,1S,µm²,10⁻¹² m²

share/code-list.csv  view on Meta::CPAN 

,H66,millimetre per year,,2,mm/y,"3,15576 × 10⁴ m x s⁻¹"
,H67,millimetre per hour,,2,mm/h,"0,277 777 778 × 10⁻⁷ m x s⁻¹"
,H68,millimole per gram,,1M,mmol/g,mol x kg⁻¹
,H69,picopascal per kilometre,,1M,pPa/km,10⁻¹⁵ m⁻² x kg x s⁻²
,H70,picosecond,,1,ps,10⁻¹² s
,H71,percent per month,"A unit of proportion, equal to 0.01, in relation to a month.",3.7,%/mo,
,H72,percent per hectobar,"A unit of proportion, equal to 0.01, in relation to 100-fold of the unit bar.",3.7,%/hbar,
,H73,percent per decakelvin,"A unit of proportion, equal to 0.01, in relation to 10-fold of the SI base unit Kelvin.",3.7,%/daK,10⁻³ K⁻¹
,H74,watt per metre,,1M,W/m,W m⁻¹
,H75,decapascal,,1M,daPa,10¹ Pa
,H76,gram per millimetre,,1M,g/mm,10¹ kg x m⁻¹
,H77,module width,A unit of measure used to describe the breadth of electronic assemblies as an installation standard or mounting dimension.,3,MW,
D,H78,conventional centimetre of water,,2,cm H₂O,"9,806 65 × 10¹ Pa"

share/code-list.csv  view on Meta::CPAN 

,H83,litre per kilogram,,1M,l/kg,10⁻³ m³ x kg⁻¹
,H84,gram millimetre,,1M,g·mm,10⁻⁶ kg x m
,H85,reciprocal week,,1M,1/wk,"1,647 989 452 868 × 10⁻⁶ s⁻¹"
,H87,piece,"A unit of count defining the number of pieces (piece: a single item, article or exemplar).",3.8,,
,H88,megaohm kilometre,,1S,MΩ·km,10⁹ Ω x m
,H89,percent per ohm,"A unit of proportion, equal to 0.01, in relation to the SI derived unit ohm.",3.7,%/Ω,10⁻² Ω⁻¹
,H90,percent per degree,"A unit of proportion, equal to 0.01, in relation to an angle of one degree.",3.7,%/°,"0,572 957 8 rad⁻¹"
,H91,percent per ten thousand,"A unit of proportion, equal to 0.01, in relation to multiples of ten thousand.",3.7,%/10000,10⁻⁶
,H92,percent per one hundred thousand,"A unit of proportion, equal to 0.01, in relation to multiples of one hundred thousand.",3.7,%/100000,10⁻⁷
,H93,percent per hundred,"A unit of proportion, equal to 0.01, in relation to multiples of one hundred.",3.7,%/100,10⁻⁴
,H94,percent per thousand,"A unit of proportion, equal to 0.01, in relation to multiples of one thousand.",3.7,%/1000,10⁻⁵
,H95,percent per volt,"A unit of proportion, equal to 0.01, in relation to the SI derived unit volt.",3.7,%/V,10⁻² V⁻¹
,H96,percent per bar,"A unit of proportion, equal to 0.01, in relation to an atmospheric pressure of one bar.",3.7,%/bar,10⁻⁷ Pa⁻¹
,H98,percent per inch,"A unit of proportion, equal to 0.01, in relation to an inch.",3.7,%/in,"0,393 700 8 m⁻¹"
,H99,percent per metre,"A unit of proportion, equal to 0.01, in relation to a metre.",3.7,%/m,10⁻² m⁻¹
,HA,hank,"A unit of length, typically for yarn.",3.9,,
D,HAR,hectare,Synonym: square hectometre,2,ha,10⁴ m²
,HBA,hectobar,,1M,hbar,10⁷ Pa
,HBX,hundred boxes,A unit of count defining the number of boxes in multiples of one hundred box units.,3.2,,
,HC,hundred count,A unit of count defining the number of units counted in multiples of 100.,3.7,,

share/code-list.csv  view on Meta::CPAN 

,ISD,international sugar degree,"A unit of measure defining the sugar content of a solution, expressed in degrees.",3.5,,
X,IT,count per centimetre,,3.9,,
,IU,inch per second,,2,in/s,"0,025 4 m/s"
,IUG,international unit per gram,A unit of count defining the number of international units per gram.,3.7,,
,IV,inch per second squared,,2,in/s²,"0,025 4 m/s²"
,J10,percent per millimetre,"A unit of proportion, equal to 0.01, in relation to a millimetre.",3.7,%/mm,10 m⁻¹
,J12,per mille per psi,A unit of pressure equal to one thousandth of a psi (pound-force per square inch).,3.7,‰/psi,"1,450 377 x 10⁻⁷ Pa⁻¹"
,J13,degree API,A unit of relative density as a measure of how heavy or light a petroleum liquid is compared to water (API: American Petroleum Institute).,3.5,°API,
,J14,degree Baume (origin scale),A traditional unit of relative density for liquids. Named after Antoine Baumé.,3.5,°Bé,
,J15,degree Baume (US heavy),A unit of relative density for liquids heavier than water.,3.5,°Bé (US heavy),
,J16,degree Baume (US light),A unit of relative density for liquids lighter than water.,3.5,°Bé (US light),

share/code-list.csv  view on Meta::CPAN 

,KIC,"kilogram, including container","A unit of mass defining the number of kilograms of a product, including its container.",3.1,,
,KIP,"kilogram, including inner packaging","A unit of mass defining the number of kilograms of a product, including its inner packaging materials.",3.1,,
,KJ,kilosegment,A unit of information equal to 10³ (1000) segments.,3.6,,
,KJO,kilojoule,,1S,kJ,10³ J
,KL,kilogram per metre,,1,kg/m,kg/m
,KLK,lactic dry material percentage,A unit of proportion defining the percentage of dry lactic material in a product.,3.5,,
,KLX,kilolux,A unit of illuminance equal to one thousand lux.,1M,klx,10³ cd x sr / m²
,KMA,kilogram of methylamine,A unit of mass equal to one thousand grams of methylamine.,3.1,kg met.am.,
,KMH,kilometre per hour,,1S,km/h,"0,277 778 m/s"
,KMK,square kilometre,,1S,km²,10⁶ m²
,KMQ,kilogram per cubic metre,A unit of weight expressed in kilograms of a substance that fills a volume of one cubic metre.,1,kg/m³,kg/m³

share/code-list.csv  view on Meta::CPAN 

,L95,common year,,2,y (365 days),"3,153 6 x 10⁷ s"
,L96,sidereal year,,2,y (sidereal),"3,155 815 x 10⁷ s"
,L98,yard per degree Fahrenheit,,2,yd/°F,"1,645 92 m/K"
,L99,yard per psi,,2,yd/psi,"1,326 225 x 10⁻⁴ m/Pa"
,LA,pound per cubic inch,,2,lb/in³,"2,767 990 x 10⁴ kg/m³"
,LAC,lactose excess percentage,A unit of proportion defining the percentage of lactose in a product that exceeds a defined percentage level.,3.5,,
,LBR,pound,,2,lb,"0,453 592 37 kg"
,LBT,troy pound (US),,3.5,,"373,241 7 g"
X,LC,linear centimetre,,3.1,,
,LD,litre per day,,1M,l/d,"1,157 41 x 10⁻⁸ m³/s"
X,LE,lite,,3.9,,

share/code-list.csv  view on Meta::CPAN 

,M20,reciprocal megakelvin or megakelvin to the power minus one,,2,1/MK,10⁻⁶ K⁻¹
,M21,reciprocal kilovolt - ampere reciprocal hour,,2,1/kVAh,"2,777 778 x 10⁻⁷ (V x A x s)⁻¹"
,M22,millilitre per square centimetre minute,,2,(ml/min)/cm²,"2,777 778 x 10⁻⁶  (m³/s)/m²"
,M23,newton per centimetre,,1M,N/cm,10² N/m
,M24,ohm kilometre,,1M,Ω·km,10³ Ω x m
,M25,percent per degree Celsius,"A unit of proportion, equal to 0.01, in relation to a temperature of one degree.",3.7,%/°C,10⁻² °C⁻¹
,M26,gigaohm per metre,,2,GΩ/m,10⁹ Ω/m
,M27,megahertz metre,,2,MHz·m,10⁶ Hz x m
,M29,kilogram per kilogram,,1S,kg/kg,1
,M30,reciprocal volt - ampere reciprocal second,,1S,1/(V·A·s),(V x A x s)⁻¹
,M31,kilogram per kilometre,,1S,kg/km,10⁻³ kg/m

share/code-list.csv  view on Meta::CPAN 

,OT,overtime hour,A unit of time defining the number of overtime hours.,3.1,,
D,OZ,ounce av,A unit of measure equal to 1/16 of a pound or about 28.3495 grams (av = avoirdupois). Use ounce (common code ONZ).,3.1,,
,OZA,fluid ounce (US),,2,fl oz (US),"2,957 353 x 10⁻⁵ m³"
,OZI,fluid ounce (UK),,2,fl oz (UK),"2,841 306 x 10⁻⁵ m³"
X,P0,page - electronic,,3.9,,
,P1,percent,A unit of proportion equal to 0.01.,3.7,% or pct,1 x 10⁻²
,P10,coulomb per metre,Derived SI unit coulomb divided by the SI base unit metre.,1,C/m,m⁻¹ x s x A
,P11,kiloweber,1000 fold of the derived SI unit weber.,1M,kWb,10³ Wb
,P12,gamma,Unit of magnetic flow density.,2,γ,10⁻⁹ T
,P13,kilotesla,1000-fold of the derived SI unit tesla.,1M,kT,10³ T
,P14,joule per second,Quotient of the derived SI unit joule divided by the SI base unit second.,1,J/s,W

share/code-list.csv  view on Meta::CPAN 

,PAL,pascal,,1,Pa,Pa
X,PB,pair inch,,3.8,,
,PD,pad,A unit of count defining the number of pads (pad: block of paper sheets fastened together at one end).,3.9,,
X,PE,pound equivalent,,3.1,,
X,PF,pallet (lift),"Use UN/ECE Recommendation 21 (refer to Note 2 in the spreadsheet introduction, 1st sheet).",3.3,,
,PFL,proof litre,"A unit of volume equal to one litre of proof spirits, or the alcohol equivalent thereof. Used for measuring the strength of distilled alcoholic liquors, expressed as a percentage of the alcohol content of a standard mixture at a spe...
X,PG,plate,"Use UN/ECE Recommendation 21 (refer to Note 2 in the spreadsheet introduction, 1st sheet).",3.3,,
,PGL,proof gallon,"A unit of volume equal to one gallon of proof spirits, or the alcohol equivalent thereof. Used for measuring the strength of distilled alcoholic liquors, expressed as a percentage of the alcohol content of a standard mixture at a s...
,PI,pitch,A unit of count defining the number of characters that fit in a horizontal inch.,3.5,,
X,PK,pack,"Use UN/ECE Recommendation 21 (refer to Note 2 in the spreadsheet introduction, 1st sheet).
Synonym: package",3.3,,
X,PL,pail,"Use UN/ECE Recommendation 21 (refer to Note 2 in the spreadsheet introduction, 1st sheet).",3.3,,
,PLA,degree Plato,"A unit of proportion defining the sugar content of a product, especially in relation to beer.",3.5,°P,
X,PM,pound percentage,,3.1,,
X,PN,pound net,,3.1,,
,PO,pound per inch of length,,2,lb/in,"1,785 797 x 10¹ kg/m"
,PQ,page per inch,"A unit of quantity defining the degree of thickness of a bound publication, expressed as the number of pages per inch of thickness.",3.5,ppi,
,PR,pair,A unit of count defining the number of pairs (pair: item described by two's).,3.7,,2
,PS,pound-force per square inch,,2,lbf/in²,"6,894 757 x 10³ Pa"

share/code-list.csv  view on Meta::CPAN 

X,UH,ten thousand yard,,3.8,,
X,UM,million unit,,3.8,,
,VA,volt - ampere per kilogram,,3.9,V·A / kg,V x A / kg
X,VI,vial,"Use UN/ECE Recommendation 21 (refer to Note 2 in the spreadsheet introduction, 1st sheet).",3.3,,
,VLT,volt,,1,V,V
,VP,percent volume,"A measure of concentration, typically expressed as the percentage volume of a solute in a solution.",3.7,,
X,VQ,bulk,"Use UN/ECE Recommendation 21 (refer to Note 2 in the spreadsheet introduction, 1st sheet).",3.3,,
X,VS,visit,,3.9,,
,W2,wet kilo,"A unit of mass defining the number of kilograms of a product, including the water content of the product.",3.1,,
X,W4,two week,,3.8,,
,WA,watt per kilogram,,3.9,W/kg,1 W/kg

 view all matches for this distribution


CGI-Application-Plugin-Authentication
6 results

 view release on metacpan or  search on metacpan

lib/CGI/Application/Plugin/Authentication.pm  view on Meta::CPAN 

This is the base colour that will be used in the included login box.  All other
colours are automatically calculated based on this colour (unless you hardcode
the colour values).  In order to calculate other colours, you will need the
Color::Calc module.  If you do not have the Color::Calc module, then you will
need to use fixed values for all of the colour options.  All colour values
besides the BASE_COLOUR can be simple percentage values (including the % sign).
For example if you set the LIGHTER_COLOUR option to 80%, then the calculated
colour will be 80% lighter than the BASE_COLOUR.

=item LIGHT_COLOUR (default: 50% or #a2aac4)

 view all matches for this distribution


CGI-Application-Search
1 match

 view release on metacpan or  search on metacpan

templates/prototype_javascript.tmpl  view on Meta::CPAN 

  }
});

Effect.Scale = Class.create();
Object.extend(Object.extend(Effect.Scale.prototype, Effect.Base.prototype), {
  initialize: function(element, percent) {
    this.element = $(element)
    options = Object.extend({
      scaleX: true,
      scaleY: true,
      scaleContent: true,

templates/prototype_javascript.tmpl  view on Meta::CPAN 

    this.originalTop    = this.element.offsetTop;
    this.originalLeft   = this.element.offsetLeft;
    if(this.element.style.fontSize=="") this.sizeEm = 1.0;
    if(this.element.style.fontSize && this.element.style.fontSize.indexOf("em")>0)
      this.sizeEm      = parseFloat(this.element.style.fontSize);
    this.factor = (percent/100.0) - (options.scaleFrom/100.0);
    if(options.scaleMode=='box') {
      this.originalHeight = this.element.clientHeight;
      this.originalWidth  = this.element.clientWidth; 
    } else 
    if(options.scaleMode=='contents') {

templates/prototype_javascript.tmpl  view on Meta::CPAN 

     scaleY: false,
     afterFinish: function(effect) { Element.hide(effect.element) } });
 }}, arguments[1] || {}));
}

// old: new Effect.ContentZoom(element, percent)
// new: Element.setContentZoom(element, percent) 

Element.setContentZoom = function(element, percent) {
  var element = $(element);
  element.style.fontSize = (percent/100) + "em";  
  if(navigator.appVersion.indexOf('AppleWebKit')>0) window.scrollBy(0,0);
}

//-->
</script>

 view all matches for this distribution


CGI-Cache
1 match

 view release on metacpan or  search on metacpan

inc/URI/Escape.pm  view on Meta::CPAN 

    utf8::encode($text);
    return uri_escape($text, @_);
}

sub uri_unescape {
    # Note from RFC1630:  "Sequences which start with a percent sign
    # but are not followed by two hexadecimal characters are reserved
    # for future extension"
    my $str = shift;
    if (@_ && wantarray) {
        # not executed for the common case of a single argument

 view all matches for this distribution


CGI-Capture
1 match

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN 


1.11      2007-12-06
	- Updating YAML::Tiny to ensure a bug fix is
	  made for TERMCAP strings with unprintable
	  characters in them. This was causing a large
	  percentage of install attempts to spuriously fail.

1.10      2007-10-22
	- No functional changes
	- Upgrading to newer AUTOMATED_TESTING tests

 view all matches for this distribution


CGI-Ex-Template-XS
1 match

 view release on metacpan or  search on metacpan

samples/bench_template.pl  view on Meta::CPAN 

my $filename;

### uncomment to run a specific test - otherwise all tests run
#@run = qw(07);

#                                                                         ### All percents are CGI::Ex::Template::XS vs TT2 with Stash::XS
#                                                                         ### (The percent that CET is faster than TT)
#                                                                               Existing object by string ref #
#                                                                      New object with CACHE_EXT set #        #
#                                                   New object each time (undef CACHE_SIZE) #        #        #
#                              This percent is compiled in memory (repeated calls) #        #        #        #
my $tests = {                                                             #        #        #        #        #
    '01_empty'     => "",                                                 #  268%  #  585%  #  318%  #  414%  # 23863.2/s #
    '02_var_sma'   => "[% one %]",                                        #  225%  #  563%  #  465%  #  466%  # 19051.2/s #
    '03_var_lar'   => "[% one %]"x100,                                    #  223%  #  405%  #  196%  #  396%  # 2508.9/s #
    '04_set_sma'   => "[% SET one = 2 %]",                                #  206%  #  489%  #  433%  #  372%  # 17831.8/s #

 view all matches for this distribution


CGI-Info
3 results

 view release on metacpan or  search on metacpan

scripts/generate_index.pl  view on Meta::CPAN 

      This flag is independent of --generate_test and can be used alone.

=head1 DASHBOARD SECTIONS

  Coverage Table    - Per-file statement/branch/condition/subroutine
                      percentages with delta vs previous snapshot,
                      sortable columns, and sparkline trend per file
  Coverage Trend    - Chart of total coverage over recent commits with
                      linear regression line, zoom and pan support
  RT Issues         - Count of open RT tickets for the distribution
  CPAN Testers      - Failure table for the current release, with

scripts/generate_index.pl  view on Meta::CPAN 

# Read and decode data
my $cover_db = eval { decode_json(read_file($config{cover_db})) };
my $mutation_db = eval { decode_json(read_file($config{mutation_db})) };

# --------------------------------------------------
# Compute coverage percentage from only our own files,
# excluding absolute paths (installed CPAN modules)
# which inflate Devel::Cover's pre-aggregated Total.
# --------------------------------------------------
my ($coverage_pct, $badge_color) = (0, 'red');

if($cover_db->{summary}) {
	my ($sum, $count) = (0, 0);
	for my $f (keys %{ $cover_db->{summary} }) {
		next if $f eq 'Total';
		next if $f =~ /^\//;    # skip absolute paths
		$sum += $cover_db->{summary}{$f}{total}{percentage} // 0;
		$count++;
	}
	if($count) {
		my $pct = _own_file_coverage_pct($cover_db->{summary});

scripts/generate_index.pl  view on Meta::CPAN 

		if($file =~ /^blib\/lib\/(.+)$/) {
			next if exists $cover_db->{summary}{"lib/$1"};
			$delta_key = "lib/$1";
		}

		my $curr = $cover_db->{summary}{$file}{total}{percentage} // 0;
		my $prev = $prev_data->{summary}{$file}{total}{percentage}
			// $prev_data->{summary}{$delta_key}{total}{percentage}
			// 0;
		my $delta = sprintf('%.1f', $curr - $prev);
		$deltas{$delta_key} = $delta;
	}
}

scripts/generate_index.pl  view on Meta::CPAN 

	$html_file =~ s|/|-|g;
	$html_file =~ s|\.pm$|-pm|;
	$html_file =~ s|\.pl$|-pl|;
	$html_file .= '.html';

	my $total = $info->{total}{percentage} // 0;
	$total_files++;
	$total_coverage += $total;
	$low_coverage_count++ if $total < $config{low_threshold};

	my $badge_class = $total >= $config{med_threshold} ? 'badge-good'

scripts/generate_index.pl  view on Meta::CPAN 

	my $delta_html;
	if (exists $deltas{$file}) {
		my $delta = $deltas{$file};
		my $delta_class = $delta > 0 ? 'positive' : $delta < 0 ? 'negative' : 'neutral';
		my $delta_icon = $delta > 0 ? '&#9650;' : $delta < 0 ? '&#9660;' : '&#9679;';
		my $prev_pct = $prev_data->{summary}{$file}{total}{percentage} // 0;

		$delta_html = sprintf(
			'<td class="%s" title="Previous: %.1f%%">%s %.1f%%</td>',
			$delta_class, $prev_pct, $delta_icon, abs($delta)
		);

scripts/generate_index.pl  view on Meta::CPAN 

		$delta_html = '<td class="neutral" title="No previous data">&#9679;</td>';
	}

	my $source_url = $github_base . $display_file;
	my $has_coverage = (
		defined $info->{statement}{percentage} ||
		defined $info->{branch}{percentage} ||
		defined $info->{condition}{percentage} ||
		defined $info->{subroutine}{percentage}
	);

	my $source_link = $has_coverage
		? sprintf('<a href="%s" class="icon-link" title="View source on GitHub">&#128269;</a>', $source_url)
		: '<span class="disabled-icon" title="No coverage data">&#128269;</span>';

scripts/generate_index.pl  view on Meta::CPAN 

	for my $hist_file (sort @limited_history) {
		my $json = $historical_cache{$hist_file};
		next unless $json;	# Skip if not cached (shouldn't happen, but be safe)

		if($json->{summary}{$file}) {
			my $pct = $json->{summary}{$file}{total}{percentage} // 0;
			push @file_history, sprintf('%.1f', $pct);
		}
	}

	my $points_attr = join(',', @file_history);

	push @html, sprintf(
		qq{<tr class="%s"><td><a href="%s" title="View coverage line by line" target="_blank">%s</a> %s<canvas class="sparkline" width="80" height="20" data-points="$points_attr"></canvas></td><td>%.1f</td><td>%.1f</td><td>%.1f</td><td>%.1f</td><td>%s</td>...
		$row_class, $html_file, $display_file, $source_link,
		$info->{statement}{percentage} // 0,
		$info->{branch}{percentage} // 0,
		$info->{condition}{percentage} // 0,
		$info->{subroutine}{percentage} // 0,
		$badge_html,
		$delta_html
	);
}

scripts/generate_index.pl  view on Meta::CPAN 

	if($file =~ /^blib\/lib\/(.+)$/) {
		next if exists $cover_db->{summary}{"lib/$1"};
	}

	my $info = $cover_db->{summary}{$file};
	$sum_stmt   += $info->{statement}{percentage}  // 0;
	$sum_branch += $info->{branch}{percentage} // 0;
	$sum_cond   += $info->{condition}{percentage}  // 0;
	$sum_sub    += $info->{subroutine}{percentage} // 0;
	$sum_total  += $info->{total}{percentage}      // 0;
	$counted++;
}

if($counted) {
	my $avg_total = $sum_total / $counted;

scripts/generate_index.pl  view on Meta::CPAN 

	my ($sum, $count) = (0, 0);
	for my $f (keys %{ $json->{summary} }) {
		next if $f eq 'Total';
		next if $f =~ /^\//;
		next unless $f =~ /^(?:lib|blib|bin)\//;	# only own project files
		$sum += $json->{summary}{$f}{total}{percentage} // 0;
		$count++;
	}
	next unless $count;

	my $timestamp = $commit_times{$sha} // strftime('%Y-%m-%dT%H:%M:%S', localtime((stat($file))->mtime));

scripts/generate_index.pl  view on Meta::CPAN 


	return (0, 'none') if ($fail + $pass) == 0;

	my $score = $fail / ($fail + $pass);

	# Convert config thresholds from percent → fraction
	my $med = ($config{med_threshold} // 90) / 100;
	my $low = ($config{low_threshold} // 70) / 100;

	my $label =
		$score >= $med ? 'strong' :

scripts/generate_index.pl  view on Meta::CPAN 

}

# --------------------------------------------------
# _ter_badge
#
# Purpose:    Format a single TER percentage value as
#             a colour-coded HTML badge, consistent
#             with the coverage badge style used
#             elsewhere in the dashboard.
#
# Entry:      $pct   - percentage value (0-100), or
#                      undef if data is unavailable
#             $label - fallback text to display when
#                      $pct is undef (e.g. 'n/a')
#
# Exit:       Returns an HTML span string. Never

scripts/generate_index.pl  view on Meta::CPAN 

				$ter3_str = 'n/a';
			} elsif (!$lcsaj_total) {
				# File found but no paths defined
				$ter3_str = '-';
			} else {
				# Format as percentage with raw fraction for clarity
				$ter3_str = sprintf('%.1f%% (%d/%d)',
					($lcsaj_cov / $lcsaj_total) * 100,
					$lcsaj_cov,
					$lcsaj_total
				);

scripts/generate_index.pl  view on Meta::CPAN 

#
# NOTE:
# Devel::Cover's pre-aggregated Total key includes all
# instrumented files — CPAN dependencies, blib/ copies,
# and absolute paths — which massively deflates the
# reported percentage. We recompute from individual file
# entries, applying the same own-file filter used in the
# coverage table and badge calculation.
# ------------------------------------------------------------
sub _coverage_totals
{

scripts/generate_index.pl  view on Meta::CPAN 

}

# --------------------------------------------------
# _own_file_coverage_pct
#
# Compute average coverage percentage across only the
# project's own files in a Devel::Cover summary hashref,
# excluding Devel::Cover's pre-aggregated Total key and
# any absolute paths (installed CPAN modules) which
# would otherwise inflate the reported figure.
#
# Arguments:
#   $summary - hashref of Devel::Cover summary data
#
# Returns:
#   Average total coverage percentage, or undef if no
#   qualifying files found
# --------------------------------------------------
sub _own_file_coverage_pct {
	my ($summary) = @_;

scripts/generate_index.pl  view on Meta::CPAN 

	my ($sum, $count) = (0, 0);
	for my $f (keys %$summary) {
		next if $f eq 'Total';
		next if $f =~ /^\//;	# skip absolute paths
		next unless $f =~ /^(?:lib|blib|bin)\//;	# only own project files
		$sum += $summary->{$f}{total}{percentage} // 0;
		$count++;
	}

	return $count ? $sum / $count : undef;
}

 view all matches for this distribution


CGI-Inspect
1 match

 view release on metacpan or  search on metacpan

lib/CGI/Inspect/htdocs/js/jquery.ui.all.js  view on Meta::CPAN 

 *
 * http://docs.jquery.com/UI/Effects/Scale
 *
 * Depends:
 *	effects.core.js
 */
(function(a){a.effects.puff=function(b){return this.queue(function(){var f=a(this);var c=a.extend(true,{},b.options);var h=a.effects.setMode(f,b.options.mode||"hide");var g=parseInt(b.options.percent,10)||150;c.fade=true;var e={height:f.height(),...
 * jQuery UI Effects Shake 1.7.1
 *
 * Copyright (c) 2009 AUTHORS.txt (http://jqueryui.com/about)
 * Dual licensed under the MIT (MIT-LICENSE.txt)
 * and GPL (GPL-LICENSE.txt) licenses.

 view all matches for this distribution


CGI-Lingua
1 match

 view release on metacpan or  search on metacpan

scripts/generate_index.pl  view on Meta::CPAN 


my $coverage_pct = 0;
my $badge_color = 'red';

if(my $total_info = $data->{summary}{Total}) {
	$coverage_pct = int($total_info->{total}{percentage} // 0);
	$badge_color = $coverage_pct > 80 ? 'brightgreen' : $coverage_pct > 50 ? 'yellow' : 'red';
}

Readonly my $coverage_badge_url => "https://img.shields.io/badge/coverage-${coverage_pct}%25-${badge_color}";

scripts/generate_index.pl  view on Meta::CPAN 

}
my %deltas;
if ($prev_data) {
	for my $file (keys %{$data->{summary}}) {
		next if $file eq 'Total';
		my $curr = $data->{summary}{$file}{total}{percentage} // 0;
		my $prev = $prev_data->{summary}{$file}{total}{percentage} // 0;
		my $delta = sprintf('%.1f', $curr - $prev);
		$deltas{$file} = $delta;
	}
}

scripts/generate_index.pl  view on Meta::CPAN 

	$html_file =~ s|/|-|g;
	$html_file =~ s|\.pm$|-pm|;
	$html_file =~ s|\.pl$|-pl|;
	$html_file .= '.html';

	my $total = $info->{total}{percentage} // 0;
	$total_files++;
	$total_coverage += $total;
	$low_coverage_count++ if $total < 70;

	my $badge_class = $total >= 90 ? 'badge-good'

scripts/generate_index.pl  view on Meta::CPAN 

	my $delta_html = '';
	if (exists $deltas{$file}) {
		my $delta = $deltas{$file};
		my $delta_class = $delta > 0 ? 'positive' : $delta < 0 ? 'negative' : 'neutral';
		my $delta_icon = $delta > 0 ? '&#9650;' : $delta < 0 ? '&#9660;' : '&#9679;';
		my $prev_pct = $prev_data->{summary}{$file}{total}{percentage} // 0;

		$delta_html = sprintf(
			'<td class="%s" title="Previous: %.1f%%">%s %.1f%%</td>',
			$delta_class, $prev_pct, $delta_icon, abs($delta)
		);

scripts/generate_index.pl  view on Meta::CPAN 

		$delta_html = '<td class="neutral" title="No previous data">&#9679;</td>';
	}

	my $source_url = $github_base . $file;
	my $has_coverage = (
		defined $info->{statement}{percentage} ||
		defined $info->{branch}{percentage} ||
		defined $info->{condition}{percentage} ||
		defined $info->{subroutine}{percentage}
	);

	my $source_link = $has_coverage
		? sprintf('<a href="%s" class="icon-link" title="View source on GitHub">&#128269;</a>', $source_url)
		: '<span class="disabled-icon" title="No coverage data">&#128269;</span>';

scripts/generate_index.pl  view on Meta::CPAN 

		$history{$file} = $json;
	}
	for my $hist_file (sort @history_files) {
		my $json = eval { decode_json(read_file($hist_file)) };
		next unless $json && $json->{summary}{$file};
		my $pct = $json->{summary}{$file}{total}{percentage} // 0;
		push @file_history, sprintf('%.1f', $pct);
	}
	my $points_attr = join(',', @file_history);

	push @html, sprintf(
		qq{<tr class="%s"><td><a href="%s" title="View coverage line by line" target="_blank">%s</a> %s<canvas class="sparkline" width="80" height="20" data-points="$points_attr"></canvas></td><td>%.1f</td><td>%.1f</td><td>%.1f</td><td>%.1f</td><td>%s</td>...
		$row_class, $html_file, $file, $source_link,
		$info->{statement}{percentage} // 0,
		$info->{branch}{percentage} // 0,
		$info->{condition}{percentage} // 0,
		$info->{subroutine}{percentage} // 0,
		$badge_html,
		$delta_html
	);
}

scripts/generate_index.pl  view on Meta::CPAN 

	$total_files, $avg_coverage, $low_coverage_count
);

# Add totals row
if (my $total_info = $data->{summary}{Total}) {
	my $total_pct = $total_info->{total}{percentage} // 0;
	my $class = $total_pct > 80 ? 'high' : $total_pct > 50 ? 'med' : 'low';

	push @html, sprintf(
		qq{<tr class="%s nosort"><td><strong>Total</strong></td><td>%.1f</td><td>%.1f</td><td>%.1f</td><td>%.1f</td><td colspan="2"><strong>%.1f</strong></td></tr>\n},
		$class,
		$total_info->{statement}{percentage} // 0,
		$total_info->{branch}{percentage} // 0,
		$total_info->{condition}{percentage} // 0,
		$total_info->{subroutine}{percentage} // 0,
		$total_pct
	);
}

my $timestamp = 'Unknown';

scripts/generate_index.pl  view on Meta::CPAN 


foreach my $file (sort @history_files) {
	my $json = eval { decode_json(read_file($file)) };
	next unless $json && $json->{summary}{Total};

	my $pct = $json->{summary}{Total}{total}{percentage} // 0;
	my ($date) = $file =~ /(\d{4}-\d{2}-\d{2})/;
	push @trend_points, { date => $date, coverage => sprintf('%.1f', $pct) };
}

# Inject chart if we have data

scripts/generate_index.pl  view on Meta::CPAN 

	my $timestamp = $commit_times{$sha} // strftime('%Y-%m-%dT%H:%M:%S', localtime((stat($file))->mtime));
	$timestamp =~ s/ /T/;
	$timestamp =~ s/\s+([+-]\d{2}):?(\d{2})$/$1:$2/;	# Fix space before timezone
	$timestamp =~ s/ //g;	# Remove any remaining spaces

	my $pct = $json->{summary}{Total}{total}{percentage} // 0;
	my $color = 'gray';	# Will be set properly after sorting
	my $url = "https://github.com/nigelhorne/CGI-Lingua/commit/$sha";
	my $comment = $commit_messages{$sha};

	# Store with timestamp for sorting

scripts/generate_index.pl  view on Meta::CPAN 

	normalRows.sort((a, b) => {
		let x = (a.cells[n] && a.cells[n].innerText) ? a.cells[n].innerText.trim() : "";
		let y = (b.cells[n] && b.cells[n].innerText) ? b.cells[n].innerText.trim() : "";

		if (isNumeric) {
			// Remove non-number characters (arrows, percent signs, bullets, etc.)
			x = parseFloat(x.replace(/[^0-9.\-+eE]/g, '')) || 0;
			y = parseFloat(y.replace(/[^0-9.\-+eE]/g, '')) || 0;
		} else {
			// Text compare (case-insensitive)
			x = x.toLowerCase();

 view all matches for this distribution


( run in 2.622 seconds using v1.01-cache-2.11-cpan-39bf76dae61 )