Result:
found more than 661 distributions - search limited to the first 2001 files matching your query
( run in 0.784 )
CPAN-Reporter-Smoker
view release on metacpan or search on metacpan
"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.
CPAN-Reporter
view release on metacpan or search on metacpan
"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.
CPAN-Test-Dummy-Perl5-RecSug
view release on metacpan or search on metacpan
"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.
CPAN-Testers-Common-Utils
view release on metacpan or search on metacpan
"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.
CPAN-Testers-Config
view release on metacpan or search on metacpan
"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.
CPAN-Testers-Metabase-AWS
view release on metacpan or search on metacpan
"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.
CPAN-Testers-Metabase-Feed
view release on metacpan or search on metacpan
"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.
CPAN-Testers-Metabase-MongoDB
view release on metacpan or search on metacpan
"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.
CPAN-Testers-Metabase
view release on metacpan or search on metacpan
"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.
CPAN-Testers-Report
view release on metacpan or search on metacpan
"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.
CPAN-Testers-Reports-Query-JSON
view release on metacpan or search on metacpan
lib/CPAN/Testers/Reports/Query/JSON.pm view on Meta::CPAN
print "Processing version: " . $dist_query->version() . "\n";
print "Other versions are: " . join(" ", @{$dist_query->versions()}) . "\n";
my $all = $dist_query->all();
printf "There were %s tests, %s passed, %s failed - e.g. %s percent",
$all->total_tests(),
$all->number_passed(),
$all->number_failed(),
$all->percent_passed();
my $win32_only = $dist_query->win32_only();
printf "There were %s windows tests, %s passed, %s failed - e.g. %s percent",
$win32_only->total_tests(),
$win32_only->number_passed(),
$win32_only->number_failed(),
$win32_only->percent_passed();
my $non_win32 = $dist_query->non_win32();
printf "There were %s windows tests, %s passed, %s failed - e.g. %s percent",
$non_win32->total_tests(),
$non_win32->number_passed(),
$non_win32->number_failed(),
$non_win32->percent_passed();
# Get results for a specific OS
my $specific_os = $dist_query->for_os('linux');
=head1 DESCRIPTION
CPAN-Testers-WWW-Reports-Query-AJAX
view release on metacpan or search on metacpan
lib/CPAN/Testers/WWW/Reports/Query/AJAX.pm view on Meta::CPAN
For the given query, the total number of UNKNOWN reports stored.
=item * pc_pass
For the given query, the percentage number of PASS reports stored against all
reports stored.
=item * pc_fail
For the given query, the percentage number of FAIL reports stored against all
reports stored.
=item * pc_na
For the given query, the percentage number of NA reports stored against all
reports stored.
=item * pc_unknown
For the given query, the percentage number of UNKNOWN reports stored against all
reports stored.
=back
=head2 Data Methods
CPAN-Testers-WWW-Reports
view release on metacpan or search on metacpan
lib/Labyrinth/Plugin/CPAN/Monitor.pm view on Meta::CPAN
my $range = _set_range(0,$max);
my (@d,@c,@l);
my @colours = @COLOURS;
for my $inx (3 .. scalar(@$data)) {
# data needs to be expressed as a percentage of the max
for(@{$data->[$inx-1]}) {
#print "pcent = $_ / $max * 100 = ";
$_ = $_ / $max * 100;
#print "$_ = ";
$_ = int($_ * 1) / 1;
CPAN-Testers-WWW-Statistics
view release on metacpan or search on metacpan
lib/CPAN/Testers/WWW/Statistics/Graphs.pm view on Meta::CPAN
my (@d,@c);
my @colours = @COLOURS;
for my $inx (1 .. $#data) {
push @c, shift @colours;
# data needs to be expressed as a percentage of the max
for(@{$data[$inx]}) {
#print "pcent = $_ / $max * 100 = ";
$_ = $_ / $max * 100;
#print "$_ = ";
$_ = int($_ * 1) / 1;
CPAN-Visitor
view release on metacpan or search on metacpan
"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.
CPANPLUS-Dist-SUSE
view release on metacpan or search on metacpan
lib/CPANPLUS/Dist/SUSE.pm view on Meta::CPAN
--excludedocs --force -h,--hash
--ignoresize --ignorearch --ignoreos
--includedocs --justdb --nodeps
--nodigest --nosignature --nosuggest
--noorder --noscripts --notriggers
--oldpackage --percent
--repackage --replacefiles --replacepkgs
--test
=cut
lib/CPANPLUS/Dist/SUSE.pm view on Meta::CPAN
my @valid_singleoptions = (
"--aid", "--allfiles", "--badreloc", "--excludedocs",
"--force", "--hash", "--ignoresize", "--ignorearch",
"--ignoreos", "--includedocs", "--justdb", "--nodeps",
"--nodigest", "--nosignature", "--nosuggest", "--noorder",
"--noscripts", "--notriggers", "--oldpackage", "--percent",
"--repackage", "--replacefiles", "--replacepkgs", "--test"
);
#my $rpm = $self->status->rpm;
CPANPLUS-Shell-Wx
view release on metacpan or search on metacpan
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
#start timing
$begin=time();
#restart count if another progressdialog is passeed in
$progress->Update(0,_T("Inserting ").$numFound._T(" Items Into Tree..."));
my $percent=$max_progress/$numFound;
$cnt=0;
foreach $top_level ( sort( keys(%$tree) ) ){
next if $top_level eq '_items_in_tree_';
my $display=$top_level;
my $curParent=$self->AppendItem(
$self->GetRootItem(),
$top_level,$self->_get_status_icon($top_level));
foreach $item (sort(@{$tree->{$top_level}})){
$self->AppendItem($curParent,$top_level."::".$item,$self->_get_status_icon($item)) if ($curParent && $item);
last unless $progress->Update($cnt*$percent);
$cnt++;
}
}
# my $dummy=$self->AppendItem($self->GetRootItem(),'end');
# my $subDummy=$self->AppendItem($dummy,'end');
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
$max_pval,
$self,
wxPD_APP_MODAL|wxPD_CAN_ABORT|wxPD_ESTIMATED_TIME|wxPD_REMAINING_TIME);
my %allMods=%{$self->{cpan}->module_tree()}; #get all modules
my $total=keys(%allMods);
my $percent=$max_pval/($total||1); #number to increment progress by
my $begin=time(); #for timing loops
my $cnt=0; #the count of current index of @allMods - for progressbar
my $numFound=0;
$progress->Update(0,_T("Step 1 of 2: Sorting All ").$total._T(" Modules...")); #start actual progress
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
if (!($i->is_uptodate || $i->installed_version)){
my ($top_level)=split('::',$thisName);
push (@{$tree{$top_level}}, ($thisName eq $top_level)?():$thisName); #add the item to the tree
$numFound++;
}
unless ($progress->Update($cnt*$percent)){
$progress->Destroy();
return 0;
}
$cnt++; #increment current index in @installed
}
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
$max_pval,
$self,
wxPD_APP_MODAL|wxPD_CAN_ABORT|wxPD_ESTIMATED_TIME|wxPD_REMAINING_TIME);
my %allMods=%{$self->{cpan}->module_tree()}; #get all modules
my $total=keys(%allMods);
my $percent=$max_pval/($total||1); #number to increment progress by
my $begin=time(); #for timing loops
my $cnt=0; #the count of current index of @allMods - for progressbar
$numFound=0;
$progress->Update(0,_T("Step 1 of 2: Categorizing All ").$total._T(" Modules...")); #start actual progress
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
my $thisAuthor=$i->author()->cpanid." [".$i->author()->author."]";
my $cat_num=$self->{category_list}->{$thisName};
push (@{$tree{$thisAuthor}}, $thisName); #add the item to the tree
$numFound++;
}
unless ($progress->Update($cnt*$percent)){
$progress->Destroy();
return 0;
}
$cnt++; #increment current index in @installed
}
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
_T("CPANPLUS is getting information..."),$max_pval,$self,
wxPD_APP_MODAL|wxPD_CAN_ABORT|wxPD_ESTIMATED_TIME|wxPD_REMAINING_TIME);
my %allMods=%{$self->{cpan}->module_tree()}; #get all modules
my $total=keys(%allMods);
my $percent=$max_pval/($total||1); #number to increment progress by
my $begin=time(); #for timing loops
my $cnt=0; #the count of current index of @allMods - for progressbar
$numFound=0;
$progress->Update(0,_T("Step 1 of 2: Categorizing All ").$total.(" Modules...")); #start actual progress
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
$cat_num=0 if ($cat_num==99); #don't use index 99, it make array too large
$cat_num=1 if ($i->module_is_supplied_with_perl_core() && $cat_num==2);
push (@{$tree{$self->{catNames}->[$cat_num]}}, $thisName); #add the item to the tree
$numFound++;
}
unless ($progress->Update($cnt*$percent)){
$progress->Destroy();
return 0;
}
$cnt++; #increment current index in @installed
}
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
$max_pval,
$self,
wxPD_APP_MODAL|wxPD_CAN_ABORT|wxPD_ESTIMATED_TIME|wxPD_REMAINING_TIME);
my %allMods=%{$self->{cpan}->module_tree()}; #get all modules
my $total=keys(%allMods);
my $percent=$max_pval/($total||1); #number to increment progress by
my $begin=time(); #for timing loops
my $cnt=0; #the count of current index of @allMods - for progressbar
$progress->Update(0,_T("Step 1 of 2: Sorting All ").$total._T(" Modules...")); #start actual progress
#search through installed modules and insert them into the correct category
foreach $thisName (keys(%allMods)){
my $i=$allMods{$thisName};
my ($top_level)=split('::',$thisName);
push (@{$tree{$top_level}}, ($thisName eq $top_level)?():$thisName); #add the item to the tree
unless ($progress->Update($cnt*$percent)){
$progress->Destroy();
return 0;
}
$cnt++; #increment current index in @installed
}
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
$max_pval,
$self,
wxPD_APP_MODAL|wxPD_CAN_ABORT|wxPD_ESTIMATED_TIME|wxPD_REMAINING_TIME);
my %allMods=%{$self->{cpan}->module_tree()}; #get all modules
my $total=keys(%allMods);
my $percent=$max_pval/($total||1); #number to increment progress by
my $begin=time(); #for timing loops
my $cnt=0; #the count of current index of @allMods - for progressbar
$progress->Update(0,_T("Step 1 of 2: Categorizing All ").$total._T(" Modules...")); #start actual progress
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
foreach $thisName (keys(%allMods)){
my $i=$allMods{$thisName};
my $thisAuthor=$i->author()->cpanid." [".$i->author()->author."]";
my $cat_num=$self->{category_list}->{$thisName};
push (@{$tree{$thisAuthor}}, $thisName); #add the item to the tree
unless ($progress->Update($cnt*$percent)){
$progress->Destroy();
return 0;
}
$cnt++; #increment current index in @installed
}
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
_T("CPANPLUS is getting information..."),$max_pval,$self,
wxPD_APP_MODAL|wxPD_CAN_ABORT|wxPD_ESTIMATED_TIME|wxPD_REMAINING_TIME);
my %allMods=%{$self->{cpan}->module_tree()}; #get all modules
my $total=keys(%allMods);
my $percent=$max_pval/($total||1); #number to increment progress by
my $begin=time(); #for timing loops
my $cnt=0; #the count of current index of @allMods - for progressbar
$progress->Update(0,_T("Step 1 of 2: Categorizing All ").$total._T(" Modules...")); #start actual progress
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
if (defined($cat_num)){
$cat_num=0 if ($cat_num==99); #don't use index 99, it make array too large
$cat_num=1 if ($i->module_is_supplied_with_perl_core() && $cat_num==2);
push (@{$tree{$self->{catNames}->[$cat_num]}}, $thisName); #add the item to the tree
}
unless ($progress->Update($cnt*$percent)){
$progress->Destroy();
return 0;
}
$cnt++; #increment current index in @installed
}
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
my $progress=Wx::ProgressDialog->new(_T("Setting Up List..."),
_T("CPANPLUS is getting information..."),$max_pval,$self,
wxPD_APP_MODAL|wxPD_CAN_ABORT|wxPD_ESTIMATED_TIME|wxPD_REMAINING_TIME);
my @installed=$self->{cpan}->installed(); #get installed modules
my $percent=$max_pval/@installed; #number to increment progress by
my $begin=time(); #for timing loops
my $cnt=0; #the count of current index of @installed - for progressbar
my $numFound=0; #the number of modules that match CPAN to CPANPLUS::Installed
$progress->Update(0,_T("Step 1 of 2: Categorizing ").@installed._T(" Installed Modules...")); #start actual progress
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
$cat_num=1 if ($i->module_is_supplied_with_perl_core() && $cat_num==2);
push (@{$tree{$self->{catNames}->[$cat_num]}}, $thisName); #add the item to the tree
$numFound++; #increment the number of items that matched
}
}
unless ($progress->Update($cnt*$percent)){
$progress->Destroy();
return 0;
}
$cnt++; #increment current index in @installed
}
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
_T("CPANPLUS is getting information..."),
$max_pval,
$self,
wxPD_APP_MODAL|wxPD_CAN_ABORT|wxPD_ESTIMATED_TIME|wxPD_REMAINING_TIME);
my @installed=$self->{cpan}->installed(); #get installed modules
my $percent=$max_pval/@installed; #number to increment progress by
my $begin=time(); #for timing loops
my $cnt=0; #the count of current index of @installed - for progressbar
my $numFound=0; #the number of modules that match CPAN to CPANPLUS::Installed
$progress->Update(0,_T("Step 1 of 2: Sorting ").@installed." Installed Modules..."); #start actual progress
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
my $thisName=$i->name;
my $thisAuthor=$i->author()->cpanid." [".$i->author()->author."]";
my $cat_num=$self->{category_list}->{$thisName};
push (@{$tree{$thisAuthor}}, $thisName); #add the item to the tree
}
unless ($progress->Update($cnt*$percent)){
$progress->Destroy();
return 0;
}
$cnt++; #increment current index in @installed
}
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
_T("CPANPLUS is getting information..."),
$max_pval,
$self,
wxPD_APP_MODAL|wxPD_CAN_ABORT|wxPD_ESTIMATED_TIME|wxPD_REMAINING_TIME);
my @installed=$self->{cpan}->installed(); #get installed modules
my $percent=$max_pval/@installed; #number to increment progress by
my $begin=time(); #for timing loops
my $cnt=0; #the count of current index of @installed - for progressbar
my $numFound=0; #the number of modules that match CPAN to CPANPLUS::Installed
$progress->Update(0,_T("Step 1 of 2: Sorting ").@installed." Installed Modules..."); #start actual progress
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
unless ($i->is_uptodate()){
my $thisName=$i->name;
my ($top_level)=split('::',$thisName);
push (@{$tree{$top_level}}, ($thisName eq $top_level)?():$thisName); #add the item to the tree
}
unless ($progress->Update($cnt*$percent)){
$progress->Destroy();
return 0;
}
$cnt++; #increment current index in @installed
}
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
_T("CPANPLUS is getting information..."),
$max_pval,
$self,
wxPD_APP_MODAL|wxPD_CAN_ABORT|wxPD_ESTIMATED_TIME|wxPD_REMAINING_TIME);
my @installed=$self->{cpan}->installed(); #get installed modules
my $percent=$max_pval/@installed; #number to increment progress by
my $begin=time(); #for timing loops
my $cnt=0; #the count of current index of @installed - for progressbar
my $numFound=0; #the number of modules that match CPAN to CPANPLUS::Installed
$progress->Update(0,_T("Step 1 of 2: Sorting ").@installed._T(" Installed Modules...")); #start actual progress
#search through installed modules and insert them into the correct category
foreach $i (@installed){
my $thisName=$i->name;
my ($top_level)=split('::',$thisName);
push (@{$tree{$top_level}}, ($thisName eq $top_level)?():$thisName); #add the item to the tree
unless ($progress->Update($cnt*$percent)){
$progress->Destroy();
return 0;
}
$cnt++; #increment current index in @installed
}
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
"CPANPLUS is getting information...",
$max_pval,
$self,
wxPD_APP_MODAL|wxPD_CAN_ABORT|wxPD_ESTIMATED_TIME|wxPD_REMAINING_TIME);
my @installed=$self->{cpan}->installed(); #get installed modules
my $percent=$max_pval/@installed; #number to increment progress by
my $begin=time(); #for timing loops
my $cnt=0; #the count of current index of @installed - for progressbar
my $numFound=0; #the number of modules that match CPAN to CPANPLUS::Installed
$progress->Update(0,_T("Step 1 of 2: Sorting ").@installed._T(" Installed Modules...")); #start actual progress
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
foreach $i (@installed){
my $thisName=$i->name;
my $thisAuthor=$i->author()->cpanid." [".$i->author()->author."]";
my $cat_num=$self->{category_list}->{$thisName};
push (@{$tree{$thisAuthor}}, $thisName); #add the item to the tree
unless ($progress->Update($cnt*$percent)){
$progress->Destroy();
return 0;
}
$cnt++; #increment current index in @installed
}
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
10000,
$self,
wxPD_APP_MODAL|wxPD_CAN_ABORT|wxPD_ESTIMATED_TIME|wxPD_REMAINING_TIME);
my @installed=$self->{cpan}->installed(); #get installed modules
my $percent=$max_pval/@installed; #number to increment progress by
my $begin=time(); #for timing loops
my $cnt=0; #the count of current index of @installed - for progressbar
my $numFound=0; #the number of modules that match CPAN to CPANPLUS::Installed
$progress->Update(0,_T("Step 1 of 2: Categorizing ").@installed._T(" Installed Modules...")); #start actual progress
#search through installed modules and insert them into the correct category
foreach $i (@installed){
my $thisName=$i->name;
my $cat_num=$self->{category_list}->{$thisName};
$progress->Update($cnt*$percent);
# "Step 1 of 2: Categorizing ".@installed." Installed Modules...#$cnt : ".$i->name);
if (defined($cat_num)){
$cat_num=0 if ($cat_num==99); #don't use index 99, it make array too large
$cat_num=1 if ($i->module_is_supplied_with_perl_core() && $cat_num==2);
push (@{$tree{$self->{catNames}->[$cat_num]}}, $thisName); #add the item to the tree
$numFound++; #increment the number of items that matched
}
unless ($progress->Update($cnt*$percent)){
$progress->Destroy();
return 0;
}
$cnt++; #increment current index in @installed
}
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
my $tmpCnt=1;
$modules={};
if ($type eq 'any' || $type eq 'all'){
my @modterms=CPANPLUS::Module::accessors(); #('name','version','path','comment','package','description','dslip','status');
my @authterms=CPANPLUS::Module::Author::accessors(); #('author','cpanid','email');
my $percent = MAX_PROGRESS_VALUE/(@modterms+@authterms);
my $count=0;
foreach $term (@modterms){
if ($progress->Update($percent*($count++),_T("Searching in $term: Found ").keys(%$modules)._T(" items"))){
foreach $m ($self->{cpan}->search(type => $term, allow => \@search)){
if ($m->isa(CPANPLUS::Module)){
#print "module: ".$m->name." [".($percent*($count++)/MAX_PROGRESS_VALUE)."]\n";
$modules->{$m->name} = $m;
}
if ($m->isa(CPANPLUS::Module::Author)){
foreach $amod ($m->modules()){
#print "amodule: ".$m->name." [".($percent*($count++)/MAX_PROGRESS_VALUE)."]\n";
$modules->{$amod->name} = $amod;
}
}
}
}else{$progress->Destroy();return;}
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
my $modules=shift;
my @names=();
my $count=0;
my $numFound=keys(%$modules);
return unless $numFound>0;
my $percent=MAX_PROGRESS_VALUE / $numFound;
return unless $progress->Update(0,_T("Getting info for $numFound items."));
my $newTree={};
#get information from modules
foreach $modname (keys(%$modules)){
last unless $progress->Update($percent*$count);
if ($modules->{$modname}->isa('CPANPLUS::Module')){
my @names=split('::',$modname);
my $ref=$newTree;
foreach $n (@names){
$ref=$ref->{$n}='';
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
# foreach $item (sort {lc($a) cmp lc($b)} @names){
# $self->AppendItem($dummy,$item,$self->_get_status_icon($item));
# $count++;
# }
foreach $k (sort(keys(%$newTree))){
return unless $progress->Update($percent*$count);
my $parent=$self->AppendItem($self->GetRootItem(),$item,$self->_get_status_icon($item));
my $ref=$newTree->{$k};
while($ref){
}
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
return unless $totalFound;
my $numFound=$totalFound;
my @modules=@_;
my @names=();
my $count=0;
my $percent=MAX_PROGRESS_VALUE/$totalFound;
return unless $progress->Update(0,_T("Getting info for $numFound items."));
#get information from modules
foreach $mod (@modules){
last unless $progress->Update($percent*$count);
if ($mod->isa('CPANPLUS::Module')){
push(@names,$mod->name);
}
if ($mod->isa('CPANPLUS::Module::Author')){
foreach $m ($mod->modules()){
lib/CPANPLUS/Shell/Wx/ModuleTree.pm view on Meta::CPAN
#populate the tree ctrl
return unless $progress->Update(0,_T("Populating tree with").$totalFound._T(" items.") );
$count=0;
foreach $item (sort {lc($a) cmp lc($b)} @names){
return unless $progress->Update($percent*$count);
$self->AppendItem($self->GetRootItem(),$item,$self->_get_status_icon($item));
$count++;
}
return 1;
}
CPANPLUS
view release on metacpan or search on metacpan
inc/bundle/HTTP/Tiny.pm view on Meta::CPAN
#pod redirected request.) For example:
#pod
#pod $http->request('GET', 'http://Aladdin:open sesame@example.com/');
#pod
#pod If the "user:password" stanza contains reserved characters, they must
#pod be percent-escaped:
#pod
#pod $http->request('GET', 'http://john%40example.com:password@example.com/');
#pod
#pod A hashref of options may be appended to modify the request.
#pod
inc/bundle/HTTP/Tiny.pm view on Meta::CPAN
if ( (my $i = index $host, '@') != -1 ) {
# user:pass@host
$auth = substr $host, 0, $i, ''; # take up to the @ for auth
substr $host, 0, 1, ''; # knock the @ off the host
# userinfo might be percent escaped, so recover real auth info
$auth =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;
}
my $port = $host =~ s/:(\d*)\z// && length $1 ? $1
: $scheme eq 'http' ? 80
: $scheme eq 'https' ? 443
inc/bundle/HTTP/Tiny.pm view on Meta::CPAN
redirected request.) For example:
$http->request('GET', 'http://Aladdin:open sesame@example.com/');
If the "user:password" stanza contains reserved characters, they must
be percent-escaped:
$http->request('GET', 'http://john%40example.com:password@example.com/');
A hashref of options may be appended to modify the request.
CPE
view release on metacpan or search on metacpan
}
elsif ($data{$k} eq '-') {
$data{$k} = 'NA';
}
elsif ($data{$k} =~ /\%/) {
# URI CPEs may have percent-encoded special characters
# which must be decoded to proper values.
my %decoded = (
'21' => '!', '22' => '"', '23' => '#', '24' => '$',
'25' => '%', '26' => '&', '27' => q('), '28' => '(',
'29' => ')', '2a' => '*', '2b' => '+', '2c' => ',',
CPP-Boost-Mini
view release on metacpan or search on metacpan
include/boost/container/adaptive_pool.hpp view on Meta::CPAN
//!OverheadPercent is the (approximated) maximum size overhead (1-20%) of the allocator:
//!(memory usable for nodes / total memory allocated from the memory allocator)
template < class T
, std::size_t NodesPerBlock BOOST_CONTAINER_DOCONLY(= ADP_nodes_per_block)
, std::size_t MaxFreeBlocks BOOST_CONTAINER_DOCONLY(= ADP_max_free_blocks)
, std::size_t OverheadPercent BOOST_CONTAINER_DOCONLY(= ADP_overhead_percent)
BOOST_CONTAINER_DOCIGN(BOOST_MOVE_I unsigned Version)
>
class adaptive_pool
{
//!If Version is 1, the allocator is a STL conforming allocator. If Version is 2,
include/boost/container/adaptive_pool.hpp view on Meta::CPAN
BOOST_CONTAINER_DOCIGN(BOOST_MOVE_I Version)
> self_t;
static const std::size_t nodes_per_block = NodesPerBlock;
static const std::size_t max_free_blocks = MaxFreeBlocks;
static const std::size_t overhead_percent = OverheadPercent;
static const std::size_t real_nodes_per_block = NodesPerBlock;
BOOST_CONTAINER_DOCIGN(BOOST_STATIC_ASSERT((Version <=2)));
public:
include/boost/container/adaptive_pool.hpp view on Meta::CPAN
template < class T
, std::size_t NodesPerBlock = ADP_nodes_per_block
, std::size_t MaxFreeBlocks = ADP_max_free_blocks
, std::size_t OverheadPercent = ADP_overhead_percent
, unsigned Version = 2
>
class private_adaptive_pool
{
//!If Version is 1, the allocator is a STL conforming allocator. If Version is 2,
include/boost/container/adaptive_pool.hpp view on Meta::CPAN
BOOST_CONTAINER_DOCIGN(BOOST_MOVE_I Version)
> self_t;
static const std::size_t nodes_per_block = NodesPerBlock;
static const std::size_t max_free_blocks = MaxFreeBlocks;
static const std::size_t overhead_percent = OverheadPercent;
static const std::size_t real_nodes_per_block = NodesPerBlock;
BOOST_CONTAINER_DOCIGN(BOOST_STATIC_ASSERT((Version <=2)));
typedef dtl::private_adaptive_node_pool
CSS-Adaptor-Whitelist
view release on metacpan or search on metacpan
lib/CSS/Adaptor/Whitelist.pm view on Meta::CPAN
return 0
}
# general
my $re_zero_to_one = qr/[01]\.?|0?\.\d+/;
my $re_percent = qr/(?: \d{1,2} \.? | \d{0,2} \. \d+ ) \%/x;
my $re_frac = qr/ \d* \. \d+ | \d+ \.? /x;
my $re_dim = qr/ $re_percent | (?:$re_frac) (?:p[ctx]|in|[cem]m|ex) \b | 0 \b /x;
my $re_ndim = qr/(?:-?$re_dim)/;
my $re_color_name = qr/(?i-xsm:\b(?:A(?:qua(?:marine)?|(?:liceBlu|ntiqueWhit|zur)e)|B(?:l(?:a(?:ck|nchedAlmond)|ue(?:Violet)?)|(?:eig|isqu)e|rown|urlyWood)|C(?:h(?:artreus|ocolat)e|or(?:n(?:flowerBlue|silk)|al)|adetBlue|(?:rimso|ya)n)|D(?:ark(?:G(?:r...
my $re_color = qr/(?:
transparent \b
| $re_color_name # Blue
| \#[\da-fA-F]{6} \b # #FF00FF
| \#[\da-fA-F]{3} \b # #F0F
| rgb\( # rgb(255,0,255), rgb(255,0,255,0.3)
(?: \d{1,3} | $re_percent ),
(?: \d{1,3} | $re_percent ),
(?: \d{1,3} | $re_percent )
(?: , (?:$re_zero_to_one | $re_percent) )?
\)
)/x;
my $re_url = qr{url\((?:http://[-\w+.]+/[-/\w.?%#]+)\)};
sub set_url_re {
my ($new_re) = @_;
CSS-DOM
view release on metacpan or search on metacpan
lib/CSS/DOM.pm view on Meta::CPAN
=item CSS::DOM::compute_style( %options )
B<Warning:> This is still highly experimental and crawling with bugs.
This computes the style for a given HTML element. It does not yet calculate
actual measurements (e.g., converting percentages to pixels), but simply
applies the cascading rules and selectors. Pseudo-classes are
not yet supported (but pseudo-elements are).
The precedence rules for normal vs important declarations in the CSS 2
specification are used. (CSS 2.1 is unclear.) The precedence is as follows,
CSS-Flip
view release on metacpan or search on metacpan
lib/CSS/Janus.pm view on Meta::CPAN
}
}
# calculateNewBackgroundPosition ($&, $1, $2, $3, $4, $5)
#
# Changes horizontal background-position percentages, e.g.:
# 'background-position: 75% 50%' => 'background-position: 25% 50%'
sub calculateNewBackgroundPosition {
my @m = @_;
my $new_x;
lib/CSS/Janus.pm view on Meta::CPAN
$position_string, $m[2], $m[3], $new_x, $m[5];
}
# calculateNewBackgroundPositionX ($&, $1, $2)
#
# Fixes percent based background-position-x, e.g.:
# 'background-position-x: 75%' => 'background-position-x: 25%'
sub calculateNewBackgroundPositionX {
my @m = @_;
my $new_x;
CSS-LESS-Filter
view release on metacpan or search on metacpan
lib/CSS/LESS/Filter.pm view on Meta::CPAN
| adjacent_selector
| universal_selector
| parens # for interpolation
| interpolated_variable
| color
| percent
| important
)
{ debug($thisline, @item); $return = join '', @{$item[1]}, $item[2] }
namespace_prefix: (ident | '*')(?) '|'
lib/CSS/LESS/Filter.pm view on Meta::CPAN
values: (value | comments | /[, ]/ )(s)
{ debug($thisline, @item); $return = join '', @{$item[1]} }
value: (
string | url | variable | color | iefilter | javascript
| unicode_range | expression | percent
| px | num | function | ident | important
| sp | unknown
)(s)
{ debug($thisline, @item); $return = join'', @{$item[1]} }
lib/CSS/LESS/Filter.pm view on Meta::CPAN
{ debug($thisline, @item); $return = $item[1] }
paren_close: ')'
{ debug($thisline, @item); $return = $item[1] }
arg: parens | variable | op | color | px | percent | num | function | string | ident | colon | attribute_selector
{ debug($thisline, @item); $return = $item[1] }
parens: paren_open (arg | /[;, ]/ | sp)(s?) paren_close
{ debug($thisline, @item); $return = join '', $item[1], @{$item[2]}, $item[3] }
expression: (variable | percent | px | num | op | parens)(s)
{ debug($thisline, @item); $return = join '', @{$item[1]} }
px: /[0-9]+px/
{ debug($thisline, @item); $return = $item[1] }
percent: /[0-9\.\-]+%/
{ debug($thisline, @item); $return = $item[1] }
color: /#([0-9a-fA-F]{6}|[0-9a-fA-F]{3})/
{ debug($thisline, @item); $return = $item[1] }
CSS-Minifier-XS
view release on metacpan or search on metacpan
meaningful and needs to be preserved (e.g. "#link :visited")
- Further reductions of "zero values", when possible
- "00000px" and "0.0px" become "0px"
- "000%" and "0.0%" become "0%"
- units are preserved inside of functions, but eliminated otherwise, and
percentages are always left as a percentages
- Optimized whitespace collapsing
- Optimized memory usage and string copying
0.11 2020-12-30 21:27:39-08:00 America/Vancouver
- POD spelling fixes
0.10 2020-12-28 11:00:17-08:00 America/Vancouver
- RT #90879; correct minification of %s in "hsl()" and "hsla()" functions
Thanks to Philipp Soehnlein
- RT #103231; don't remove units on zero values inside of functions.
Thanks to Isaac Montoya, for an additional test case.
- No long drop units on zero percentages, as those may be required for CSS
animations. Thanks to Isaac Montoya for continuing to poke me on this.
- Now prunes leading whitespace before "!important"
e.g. "color: red !important" becomes "color:red!important"
- Switch to Dist::Zilla
CSS-Orientation
view release on metacpan or search on metacpan
lib/CSS/Orientation.pm view on Meta::CPAN
# Compile the cursor resize regexes
our $CURSOR_EAST_RE = resprintf( $LOOKBEHIND_NOT_LETTER . '([ns]?)e-resize' );
our $CURSOR_WEST_RE = resprintf( $LOOKBEHIND_NOT_LETTER . '([ns]?)w-resize' );
# Matches the condition where we need to replace the horizontal component
# of a background-position value when expressed in horizontal percentage.
# Had to make two regexes because in the case of position-x there is only
# one quantity, and otherwise we don't want to match and change cases with only
# one quantity.
our $BG_HORIZONTAL_PERCENTAGE_RE = resprintf( q'background(-position)?(%s:%s)' .
q'([^%%]*?)(%s)%%' .
lib/CSS/Orientation.pm view on Meta::CPAN
our $BG_HORIZONTAL_PERCENTAGE_X_RE = resprintf( q'background-position-x(%s:%s)' .
q'(%s)%%', $WHITESPACE,
$WHITESPACE,
$NUM );
# Non-percentage units used for CSS lengths
our $LENGTH_UNIT = q'(?:em|ex|px|cm|mm|in|pt|pc)';
# To make sure the lone 0 is not just starting a number (like "02") or a percentage like ("0 %")
our $LOOKAHEAD_END_OF_ZERO = sprintf( '(?![0-9]|%s%%)', $WHITESPACE );
# A length with a unit specified. Matches "0" too, as it's a length, not a percentage.
our $LENGTH = sprintf( '(?:-?%s(?:%s%s)|0+%s)', $NUM,
$WHITESPACE,
$LENGTH_UNIT,
$LOOKAHEAD_END_OF_ZERO );
CSS-Prepare
view release on metacpan or search on metacpan
lib/CSS/Prepare/Property/Values.pm view on Meta::CPAN
use Exporter;
our @ISA = qw( Exporter );
our @EXPORT = qw(
is_length_value
is_percentage_value
is_string_value
is_url_value
is_background_attachment_value
is_background_colour_value
lib/CSS/Prepare/Property/Values.pm view on Meta::CPAN
$outline_colour_value
$outline_style_value
$outline_width_value
$padding_width_value
$positive_length_value
$positive_percentage_value
$string_value
$url_value
$concise_format
$pretty_format
lib/CSS/Prepare/Property/Values.pm view on Meta::CPAN
(?: px | em | ex | in | cm | mm | pt | pc )
|
0
)
}x;
my $percentage_value = qr{ $number_value % }x;
our $positive_percentage_value = qr{ $positive_number_value % }x;
our $colour_value = qr{
(?:
aqua | black | blue | fuchsia | gray | green
| lime | maroon | navy | olive | orange | purple
| red | silver | teal | white | yellow
lib/CSS/Prepare/Property/Values.pm view on Meta::CPAN
|
\# [0-9a-fA-F]{3}
|
rgb\(
(?:
(?: (?: $number_value | $percentage_value ) , \s* ){2}
(?: $number_value | $percentage_value )
)
\)
)
}x;
our $string_value = qr{
lib/CSS/Prepare/Property/Values.pm view on Meta::CPAN
= qr{ (?: top | center | centre | bottom ) }x;
our $background_position_value = qr{
(?:
(?:
(?:
$percentage_value
| $length_value
| $background_positions_horizontal
)
(?:
\s+
(?:
$percentage_value
| $length_value
| $background_positions_vertical
)
)?
)
lib/CSS/Prepare/Property/Values.pm view on Meta::CPAN
}x;
my $border_collapse_value = qr{ (?: collapse | separate | inherit ) }x;
our $border_colour_value = qr{ (?: transparent | inherit | $colour_value ) }x;
our $individual_border_radius_value
= qr{ (?: $positive_length_value | $positive_percentage_value ) }x;
our $border_radius_corner_value = qr{
$individual_border_radius_value
(?: \s+ $individual_border_radius_value )?
}x;
our $border_radius_value = qr{
lib/CSS/Prepare/Property/Values.pm view on Meta::CPAN
(?: $font_family (?: \s* \, \s* $font_family )+ )
)
}x;
our $line_height_value = qr{
(?: normal
| $number_value | $length_value | $percentage_value
| inherit
)
}x;
our $font_size_value = qr{
(?:
xx-small | x-small | small | medium | large | x-large
| xx-large | smaller | larger | inherit
| $length_value | $percentage_value
)
}x;
my $font_size_line_height_value
= qr{ $font_size_value / $line_height_value }x;
our $font_style_value = qr{ (?: italic | oblique | normal | inherit ) }x;
lib/CSS/Prepare/Property/Values.pm view on Meta::CPAN
| inherit
)
}x;
my $height_value
= qr{ (?: $length_value | $percentage_value | auto | inherit ) }x;
my $letter_spacing_value = qr{ (?: normal | $length_value | inherit ) }x;
our $list_style_image_value = qr{ (?: $url_value | none | inherit ) }x;
our $list_style_position_value = qr{ (?: inside | outside | inherit ) }x;
our $list_style_type_value = qr{
(?:
lib/CSS/Prepare/Property/Values.pm view on Meta::CPAN
| none | inherit
)
}x;
our $margin_width_value
= qr{ (?: $length_value | $percentage_value | auto | inherit ) }x;
my $max_height_value
= qr{ (?: $length_value | $percentage_value | none | inherit ) }x;
my $max_width_value
= qr{ (?: $length_value | $percentage_value | none | inherit ) }x;
my $min_height_value
= qr{ (?: $length_value | $percentage_value | inherit ) }x;
my $min_width_value
= qr{ (?: $length_value | $percentage_value | inherit ) }x;
my $offset_value
= qr{ (?: $length_value | $percentage_value | auto | inherit ) }x;
my $opacity_value = qr{ (?: $number_value | inherit ) }x;
our $outline_colour_value = qr{ (?: invert | inherit | $colour_value ) }x;
our $outline_style_value = qr{ (?: $border_style_value ) }x;
our $outline_width_value = qr{ (?: $border_width_value ) }x;
my $overflow_value = qr{ (?: visible | hidden | scroll | auto | inherit ) }x;
our $padding_width_value = qr{
(?: $positive_length_value | $positive_percentage_value | inherit )
}x;
my $position_value
= qr{ (?: absolute | fixed | relative | static | inherit ) }x;
my $quotes_value = qr{
(?:
lib/CSS/Prepare/Property/Values.pm view on Meta::CPAN
= qr{ (?: left | right | center | justify | inherit ) }x;
my $text_decoration_value = qr{
(?: none | underline | overline | line-through | blink | inherit )
}x;
my $text_indent_value
= qr{ (?: $length_value | $percentage_value | inherit ) }x;
my $text_transform_value
= qr{ (?: capitalize | uppercase | lowercase | none | inherit ) }x;
my $unicode_bidi_value
= qr{ (?: normal | embed | bidi-override | inherit ) }x;
my $vertical_align_value = qr{
(?:
baseline | sub | super | top
| text-top | middle | bottom | text-bottom
| $length_value | $percentage_value
| inherit
)
}x;
my $visibility_value = qr{ (?: visible | hidden | collapse | inherit ) }x;
my $white_space_value
= qr{ (?: normal | pre | nowrap | pre-wrap | pre-line | inherit ) }x;
my $width_value
= qr{ (?: $length_value | $percentage_value | auto | inherit ) }x;
my $word_spacing_value = qr{ (?: normal | $length_value | inherit ) }x;
my $z_index_value = qr{ (?: $integer_value | auto | inherit ) }x;
lib/CSS/Prepare/Property/Values.pm view on Meta::CPAN
sub is_length_value {
my $value = shift;
return $value =~ m{^ $length_value $}x;
}
sub is_percentage_value {
my $value = shift;
return $value =~ m{^ $percentage_value $}x;
}
sub is_string_value {
my $value = shift;
return $value =~ m{^ $string_value $}x;
}
CSS-Sass
view release on metacpan or search on metacpan
t/smoke/mem-leaks.pl view on Meta::CPAN
my $string_foobar = CSS::Sass::Type::String->new('foobar');
my $number = CSS::Sass::Type::Number->new();
my $number_null = CSS::Sass::Type::Number->new(undef);
my $number_42 = CSS::Sass::Type::Number->new(42);
my $number_px = CSS::Sass::Type::Number->new(42, 'px');
my $number_percent = CSS::Sass::Type::Number->new(42, '%');
my $color = CSS::Sass::Type::Color->new();
my $color_rgb = CSS::Sass::Type::Color->new(42, 43, 44);
my $color_rgba = CSS::Sass::Type::Color->new(1, 2, 3, 0.4);
my $color_trans = CSS::Sass::Type::Color->new(255, 0, 128, 0);
my $list = CSS::Sass::Type::List->new('foo', 'bar');
CSV-Processor
view release on metacpan or search on metacpan
bin/csvjoin view on Meta::CPAN
say "Total records out : " . scalar @data_in_new_csv if $opts{verbose};
say "Repeated records : " . $repeated_records if $opts{verbose};
my $duplicates = $nb_rows - scalar @data_in_new_csv;
say "Total duplicates : " . $duplicates if $opts{verbose};
my $percentage = ( $duplicates / $nb_rows ) * 100;
printf( "CSV reduce percentage : %.2f \n", $percentage ) if $opts{verbose};
# Text::AutoCSV: error: illegal call while read is in progress, would lead to infinite recursion
# $csv->set_walker_hr(sub {
# my $hr = shift;
CVSS
view release on metacpan or search on metacpan
lib/CVSS/v4.pm view on Meta::CPAN
my $available_distance_eq2 = $value - $score_eq2_next_lower_macro;
my $available_distance_eq3eq6 = $value - $score_eq3eq6_next_lower_macro;
my $available_distance_eq4 = $value - $score_eq4_next_lower_macro;
my $available_distance_eq5 = $value - $score_eq5_next_lower_macro;
my $percent_to_next_eq1_severity = 0;
my $percent_to_next_eq2_severity = 0;
my $percent_to_next_eq3eq6_severity = 0;
my $percent_to_next_eq4_severity = 0;
my $percent_to_next_eq5_severity = 0;
my $normalized_severity_eq1 = 0;
my $normalized_severity_eq2 = 0;
my $normalized_severity_eq3eq6 = 0;
my $normalized_severity_eq4 = 0;
lib/CVSS/v4.pm view on Meta::CPAN
my $n_existing_lower = 0;
if (!isNaN($available_distance_eq1) && $available_distance_eq1 >= 0) {
$n_existing_lower += 1;
$percent_to_next_eq1_severity = ($current_severity_distance_eq1) / $max_severity_eq1;
$normalized_severity_eq1 = $available_distance_eq1 * $percent_to_next_eq1_severity;
}
if (!isNaN($available_distance_eq2) && $available_distance_eq2 >= 0) {
$n_existing_lower += 1;
$percent_to_next_eq2_severity = ($current_severity_distance_eq2) / $max_severity_eq2;
$normalized_severity_eq2 = $available_distance_eq2 * $percent_to_next_eq2_severity;
}
if (!isNaN($available_distance_eq3eq6) && $available_distance_eq3eq6 >= 0) {
$n_existing_lower += 1;
$percent_to_next_eq3eq6_severity = ($current_severity_distance_eq3eq6) / $max_severity_eq3eq6;
$normalized_severity_eq3eq6 = $available_distance_eq3eq6 * $percent_to_next_eq3eq6_severity;
}
if (!isNaN($available_distance_eq4) && $available_distance_eq4 >= 0) {
$n_existing_lower += 1;
$percent_to_next_eq4_severity = ($current_severity_distance_eq4) / $max_severity_eq4;
$normalized_severity_eq4 = $available_distance_eq4 * $percent_to_next_eq4_severity;
}
if (!isNaN($available_distance_eq5) && $available_distance_eq5 >= 0) {
$n_existing_lower += 1;
$percent_to_next_eq5_severity = 0;
$normalized_severity_eq5 = $available_distance_eq5 * $percent_to_next_eq5_severity;
}
my $mean_distance = undef;
# 2. The mean of the above computed proportional distances is computed.
( run in 0.784 second using v1.01-cache-2.11-cpan-709fd43a63f )