Result:
found 771 distributions and 1902 files matching your query !
( run in 1.575 )
App-revealup
view release on metacpan or search on metacpan
share/revealjs/plugin/highlight/highlight.esm.js view on Meta::CPAN
function e(t){return(e="function"==typeof Symbol&&"symbol"==typeof Symbol.iterator?function(e){return typeof e}:function(e){return e&&"function"==typeof Symbol&&e.constructor===Symbol&&e!==Symbol.prototype?"symbol":typeof e})(t)}function t(e,t){if(!(...
/*!
* reveal.js plugin that adds syntax highlight support.
*/
var of={id:"highlight",HIGHLIGHT_STEP_DELIMITER:"|",HIGHLIGHT_LINE_DELIMITER:",",HIGHLIGHT_LINE_RANGE_DELIMITER:"-",hljs:rf,init:function(e){var t=e.getConfig().highlight||{};t.highlightOnLoad="boolean"!=typeof t.highlightOnLoad||t.highlightOnLoad,t....
Apporo
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
Archive-Har
view release on metacpan or search on metacpan
],
"cookies": [],
"content": {
"size": 213057,
"mimeType": "text/html",
"text": "<!doctype html><html itemscope=\"\" itemtype=\"http://schema.org/WebPage\" lang=\"en-AU\"><head><meta content=\"/images/branding/googleg/1x/googleg_standard_color_128dp.png\" itemprop=\"image\"><link href=\"/images/branding/produ...
},
"redirectURL": "",
"headersSize": -1,
"bodySize": -1,
"_transferSize": 68060
Archive-Unzip-Burst
view release on metacpan or search on metacpan
unzip-6.0/amiga/filedate.c view on Meta::CPAN
me->pr_WindowPtr = (void *) -1; /* suppress any "Please insert" popups */
if (LocaleBase = OpenLibrary("locale.library", 0)) {
if (ll = OpenLocale(NULL)) {
z = ll->loc_GMTOffset; /* in minutes */
if (z == -300) {
if (eh = Lock("ENV:sys/locale.prefs", ACCESS_READ)) {
UnLock(eh);
valid = TRUE;
} else
z = 300; /* bug: locale not initialized, default bogus! */
} else
Astro-satpass
view release on metacpan or search on metacpan
As of release 0.066, this script no longer asks whether
the satpass script should be installed, since it is being deprecated
(slowly) in favor of Astro::App::Satpass2. If you want the satpass
script installed, you should run this script with the -y option. You can
make this the default in your CPAN client by installing the preferences
file eg/Astro-Coord-ECI.yml in .cpan/prefs.
EOD
my @possible_exes = qw{satpass};
if ( $opt{n} ) {
Audio-XMMSClient
view release on metacpan or search on metacpan
XMMSClientResultPropDict.xs view on Meta::CPAN
SV *sv
PREINIT:
int i;
MAGIC *mg = NULL;
xmmsc_result_t *res;
char **prefs;
CODE:
if (!(mg = perl_xmmsclient_get_magic_from_sv (sv, "Audio::XMMSClient::Result::PropDict"))) {
croak ("bug");
}
res = (xmmsc_result_t *)mg->mg_ptr;
prefs = (char **)malloc (sizeof (char *) * items);
for (i = 1; i < items; i++) {
prefs[i] = SvPV_nolen (ST (i));
}
prefs[items] = NULL;
xmmsc_result_source_preference_set (res, (const char **)prefs);
free (prefs);
SV *
source_hash (sv)
SV *sv
PREINIT:
Authen-NZRealMe
view release on metacpan or search on metacpan
lib/Authen/NZRealMe/ServiceProvider.pm view on Meta::CPAN
my $request_id = $args{request_id}
or die "Can't resolve to assertion without original request ID\n";
my $binding = $args{saml_response} ? 'http_post' : 'http_artifact';
my @ns_prefs = ($ns_soap11, $ns_saml, $ns_samlp, $ns_xenc);
my $xc = $self->_xpath_context_dom($xml, @ns_prefs);
my $encrypted = $binding eq 'http_post';
if($xc->findnodes('//saml:EncryptedAssertion/xenc:EncryptedData')) {
$encrypted = 1;
$xml = $self->decrypt_assertion($xml);
$xc = $self->_xpath_context_dom($xml, @ns_prefs);
}
# Check for SOAP error
if($binding eq 'http_artifact') {
B-C
view release on metacpan or search on metacpan
t/modules.pm view on Meta::CPAN
# $CPAN::DEBUG++;
my $cwd = Cwd::getcwd();
# posix shell only, but we are using a posix shell here. XXX -Wb=-uTest::Builder
my $X = $^X =~ m/\s/ ? qq{"$^X"} : $^X;
# we cannot use that in PERL_CORE, only as module
$self->prefs->{test}->{commandline} =
"for t in t/*.t; do "
. "echo \"# \$t\"; $X -Iblib/arch -Iblib/lib -I\"$cwd/blib/arch\" -I\"$cwd/blib/lib\" \"$cwd/blib/script/perlcc\" -T -r \$t;"
."done";
$self->prefs->{test_report} = ''; # XXX ignored!
$self->{make_test} = 'NO'; # override YAML check "Has already been tested successfully"
$self->test(@_);
# done
}
BGPmon-Filter-2
view release on metacpan or search on metacpan
lib/BGPmon/Filter.pm view on Meta::CPAN
our $VERSION = '2.00';
our $AUTOLOAD;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(init parse_xml_msg parse_config_file
parse_database_config toString filterReset get_error_msg get_error_code
matches printFilters get_num_IPv4_prefs get_num_IPv6_prefs
get_num_ASes get_num_ip_addrs get_tot_num_filters);
}
my $progName = $0;
lib/BGPmon/Filter.pm view on Meta::CPAN
}
#closing the file
close($file);
condense_prefs(); #aggregates where possible
optimize_prefs(); #puts them in the multilayer hash for faster lookups
$error_code{$fname} = NO_ERROR_CODE;
$error_msg{$fname} = NO_ERROR_MSG;
return 0;
lib/BGPmon/Filter.pm view on Meta::CPAN
my $fname = 'parse_database_config';
lock($lock);
#getting a list of prefixes
my @prefs = BGPmon::CPM::PList::Manager::export2CSV('',$listName);
my $size = scalar(@prefs);
if($size == 0){
#TODO create an error message that has the list size at zero
}
#resetting the module
filterReset();
#creating new prefixes
foreach(@prefs){
my $newPref = $_->prefix();
my $moreSpec = $_->watch_more_specifics();
if(is_IPv6($newPref)){
my $temp = new BGPmon::Filter::Prefix(6, $newPref, $moreSpec);
push(@v6prefixes, $temp);
lib/BGPmon/Filter.pm view on Meta::CPAN
}
}
#optimizing
condense_prefs(); #aggregates where possible
optimize_prefs(); #puts them in the multilayer hash for faster lookups
$error_code{$fname} = NO_ERROR_CODE;
$error_msg{$fname} = NO_ERROR_MSG;
return 0;
}
#puts the prefixes for IPv4 into a multi-layer hash lookup
sub optimize_prefs{
foreach(@v4prefixes){
my $temp = $_;
addV4prefixToHash($temp->prefix(), $temp);
}
#TODO put in error codes
return 0;
}
=head2 get_num_IPv4_prefs
Will count the number of IPv4 prefixes it has parsed from the configuration
file and return the integer
Input: None
Output : Integer
=cut
sub get_num_IPv4_prefs{
my $toReturn = scalar(@v4prefixes);
return $toReturn;
}
=head2 get_num_IPv6_prefs
Will count the number of IPv6 prefixes it has parsed from the configuration
file and return the integer
Input: None
Output : Integer
=cut
sub get_num_IPv6_prefs{
my $toReturn = scalar(@v6prefixes);
return $toReturn;
}
lib/BGPmon/Filter.pm view on Meta::CPAN
$toReturn += scalar(@addresses);
return $toReturn;
}
#condense__prefs
#
#Will try to aggregate IPv4 and IPv6 prefixes where possible. This is used to reduce
#overhead that the filter script may experience later. Please note that the
#parse_config_file must be ran beforehand.
#
lib/BGPmon/Filter.pm view on Meta::CPAN
#
#Output: 0 if there is no error
# 1 if an error occured
#
#
sub condense_prefs{
##Starting with IPv4
#Will continuously agg. addresses where it can until none are left
my $found = TRUE;
while($found){
BGPmon-core-1
view release on metacpan or search on metacpan
lib/BGPmon/Filter.pm view on Meta::CPAN
our $VERSION = '1.092';
our $AUTOLOAD;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(init parse_xml_msg parse_config_file
parse_database_config toString filterReset get_error_msg get_error_code
matches printFilters get_num_IPv4_prefs get_num_IPv6_prefs
get_num_ASes get_num_ip_addrs get_tot_num_filters);
}
my $progName = $0;
lib/BGPmon/Filter.pm view on Meta::CPAN
}
#closing the file
close($file);
condense_prefs(); #aggregates where possible
optimize_prefs(); #puts them in the multilayer hash for faster lookups
$error_code{$fname} = NO_ERROR_CODE;
$error_msg{$fname} = NO_ERROR_MSG;
return 0;
lib/BGPmon/Filter.pm view on Meta::CPAN
my $fname = 'parse_database_config';
lock($lock);
#getting a list of prefixes
my @prefs = BGPmon::CPM::PList::Manager::export2CSV('',$listName);
my $size = scalar(@prefs);
if($size == 0){
#TODO create an error message that has the list size at zero
}
#resetting the module
filterReset();
#creating new prefixes
foreach(@prefs){
my $newPref = $_->prefix();
my $moreSpec = $_->watch_more_specifics();
if(is_IPv6($newPref)){
my $temp = new BGPmon::Filter::Prefix(6, $newPref, $moreSpec);
push(@v6prefixes, $temp);
lib/BGPmon/Filter.pm view on Meta::CPAN
}
}
#optimizing
condense_prefs(); #aggregates where possible
optimize_prefs(); #puts them in the multilayer hash for faster lookups
$error_code{$fname} = NO_ERROR_CODE;
$error_msg{$fname} = NO_ERROR_MSG;
return 0;
}
#puts the prefixes for IPv4 into a multi-layer hash lookup
sub optimize_prefs{
foreach(@v4prefixes){
my $temp = $_;
addV4prefixToHash($temp->prefix(), $temp);
}
#TODO put in error codes
return 0;
}
=head2 get_num_IPv4_prefs
Will count the number of IPv4 prefixes it has parsed from the configuration
file and return the integer
Input: None
Output : Integer
=cut
sub get_num_IPv4_prefs{
my $toReturn = scalar(@v4prefixes);
return $toReturn;
}
=head2 get_num_IPv6_prefs
Will count the number of IPv6 prefixes it has parsed from the configuration
file and return the integer
Input: None
Output : Integer
=cut
sub get_num_IPv6_prefs{
my $toReturn = scalar(@v6prefixes);
return $toReturn;
}
lib/BGPmon/Filter.pm view on Meta::CPAN
$toReturn += scalar(@addresses);
return $toReturn;
}
#condense__prefs
#
#Will try to aggregate IPv4 and IPv6 prefixes where possible. This is used to reduce
#overhead that the filter script may experience later. Please note that the
#parse_config_file must be ran beforehand.
#
lib/BGPmon/Filter.pm view on Meta::CPAN
#
#Output: 0 if there is no error
# 1 if an error occured
#
#
sub condense_prefs{
##Starting with IPv4
#Will continuously agg. addresses where it can until none are left
my $found = TRUE;
while($found){
BGPmon-core-2
view release on metacpan or search on metacpan
lib/BGPmon/Translator/XFB2PerlHash/Simple.pm view on Meta::CPAN
Ex: my @ret = get_mp_next_hop();
print my $addr-{'ADDRESS'}-{'content'} foreach $addr (@ret);
=cut
if($function_name eq 'get_mp_next_hop'){
my @prefs = ();
my $hashRes = BGPmon::Translator::XFB2PerlHash::get_content
('/BGP_MONITOR_MESSAGE/bgp:UPDATE/bgp:MP_REACH_NLRI/bgp:MP_NEXT_HOP/');
if(ref($hashRes) eq "ARRAY"){
@prefs = (@prefs, @$hashRes);
}
elsif(ref($hashRes) eq "HASH"){
push(@prefs, $hashRes);
}
return @prefs;
}
=head2 get_nlri
Returns an array of hashes. Each of these hashes are structured like so:
lib/BGPmon/Translator/XFB2PerlHash/Simple.pm view on Meta::CPAN
}
}
=cut
if ($function_name eq 'get_nlri'){
my @nlri_prefs = ();
my $hashRes = BGPmon::Translator::XFB2PerlHash::get_content
('/BGP_MONITOR_MESSAGE/bgp:UPDATE/bgp:NLRI/');
if(ref($hashRes) eq "ARRAY"){
@nlri_prefs = (@nlri_prefs, @$hashRes);
}
elsif(ref($hashRes) eq "HASH"){
push(@nlri_prefs, $hashRes);
}
return @nlri_prefs;
}
=head2 get_withdrawn
Returns an array of hashes which contain an AFI,SAFI,and withdrawn IPv4 prefix.
These hashes are structured just like the ones described in the documentation
for get_nlri().
=cut
if ($function_name eq 'get_withdrawn') {
my @with_prefs = ();
my $hashRes = BGPmon::Translator::XFB2PerlHash::get_content
('/BGP_MONITOR_MESSAGE/bgp:UPDATE/bgp:WITHDRAW/');
if(ref($hashRes) eq "ARRAY"){
@with_prefs = (@with_prefs, @$hashRes);
}
elsif(ref($hashRes) eq "HASH"){
push(@with_prefs, $hashRes);
}
return @with_prefs;
}
################################### HASHREF ELEMENTS ##########################
=head2 get_as_path
BPM-Engine
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
Banal-Mini-Utils
view release on metacpan or search on metacpan
lib/Banal/Mini/Utils/MungeHas.pm view on Meta::CPAN
#######################################
sub mhs_specs { # Define meta specs for attributes (is, isa, lazy, ...)
#######################################
# ATTENTION : Special calling convention and interface defined by MooseX::MungeHas.
my $name = $_; # $_ contains the attribute NAME
%_ = (@_, %_); # %_ contains the attribute SPECS, whereas @_ contains defaults (prefs) for those specs.
wantarray ? (%_) : +{%_}
}
#######################################
sub mhs_dict { &mhs_dictionary }
Banal-Moosy-Mungers
view release on metacpan or search on metacpan
lib/Banal/Moosy/Mungers.pm view on Meta::CPAN
#######################################
sub mhs_specs { # Define meta specs for attributes (is, isa, lazy, ...)
#######################################
# ATTENTION : Special calling convention and interface defined by MooseX::MungeHas.
my $name = $_; # $_ contains the attribute NAME
%_ = (@_, %_); # %_ contains the attribute SPECS, whereas @_ contains defaults (prefs) for those specs.
wantarray ? (%_) : +{%_}
}
#######################################
sub mhs_dict { &mhs_dictionary }
Barcode-DataMatrix
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
BeamerReveal
view release on metacpan or search on metacpan
beamer-reveal-example_files/libs/revealjs/plugin/highlight/highlight.esm.js view on Meta::CPAN
function e(e){return e&&e.__esModule&&Object.prototype.hasOwnProperty.call(e,"default")?e.default:e}function t(e){return e instanceof Map?e.clear=e.delete=e.set=function(){throw new Error("map is read-only")}:e instanceof Set&&(e.add=e.clear=e.delete...
/*!
* reveal.js plugin that adds syntax highlight support.
*/
const Rs={id:"highlight",HIGHLIGHT_STEP_DELIMITER:"|",HIGHLIGHT_LINE_DELIMITER:",",HIGHLIGHT_LINE_RANGE_DELIMITER:"-",hljs:fs,init:function(e){let t=e.getConfig().highlight||{};t.highlightOnLoad="boolean"!=typeof t.highlightOnLoad||t.highlightOnLoad,...
Benchmark-DKbench
view release on metacpan or search on metacpan
data/wiki2.html view on Meta::CPAN
<script async="" src="./Star Trek _ Memory Alpha _ Fandom_files/load(1).php"></script>
<link rel="stylesheet" href="./Star Trek _ Memory Alpha _ Fandom_files/styles.css">
<style>
@import url(https://memory-alpha.fandom.com/load.php?mode=articles&articles=MediaWiki:Sidebars.css&only=styles);table.wiki-sidebar{gre border:1px solid #666;background-color:#222222;color:inherit;clear:right;float:right;width:300px;margin-top:0em;mar...
@keyframes fade-in{to{opacity:1}}@keyframes fade-in{to{opacity:1}}@keyframes fade-in{to{opacity:1}}@keyframes fade-in{to{opacity:1}}@keyframes fade-in{to{opacity:1}}@keyframes fade-in{to{opacity:1}}.porvata-outstream{max-width:640px;position:relative...
.WikiaArticleInterlang{-webkit-box-align:baseline;align-items:baseline;clear:both;display:-webkit-box;display:flex;margin:10px;padding:10px 0 0}.WikiaArticleInterlang .article-inter-lang-header{float:left;margin-right:5px}.WikiaArticleInterlang ul{li...
.mw-editfont-monospace{font-family:monospace,monospace}.mw-editfont-sans-serif{font-family:sans-serif}.mw-editfont-serif{font-family:serif} .mw-editfont-monospace,.mw-editfont-sans-serif,.mw-editfont-serif{font-size:13px; }.mw-editfont-monospace.oo-u...
.ve-init-mw-progressBarWidget{height:1em;overflow:hidden;margin:0 25%}.ve-init-mw-progressBarWidget-bar{height:1em;width:0} .ve-init-mw-progressBarWidget{height:0.75em;border:1px solid #36c;background:#fff;border-radius:2px;box-shadow:0 0.1em 0 0 rgb...
.CategorySelect.articlePage{background-color:var(--theme-page-background-color--secondary);background-image:none;border:1px solid var(--theme-border-color);clear:both;font-size:12px;line-height:normal;margin:10px 0;padding:0;position:relative}.Catego...
.featured-video__attribution-container{border-bottom:1px solid var(--theme-border-color)}.featured-video__attribution-icon,.featured-video__attribution-username{color:rgba(var(--theme-page-text-color--rgb),.75)}
.jwplayer .jw-button-container .jw-icon-next,.jwplayer .jw-button-container .jw-icon-rewind,.jwplayer .jw-button-container .jw-related-btn,.jwplayer .jw-button-container .jw-settings-sharing,.jwplayer .jw-display-container .jw-display-icon-next,.jwpl...
Benchmark-Perl-Formance-Cargo
view release on metacpan or search on metacpan
share/SpamAssassin/easy_ham_subset/00087.03a92f5753c44cb83d28837121d82b06
share/SpamAssassin/easy_ham_subset/00182.8e6541320c6c08e0a899455a0a21f91c
share/SpamAssassin/easy_ham_subset/00271.b67b5b37ce874d5ccea3391922f14506
share/SpamAssassin/easy_ham_subset/00677.b957e34b4dd0d9263b56bf71b1168d8a
share/SpamAssassin/sa-learn.cfg
share/SpamAssassin/sa-learn.prefs
share/SpamAssassin/spam/0000.7b1b73cf36cf9dbc3d64e3f2ee2b91f1
share/SpamAssassin/spam/0001.bfc8d64d12b325ff385cca8d07b84288
share/SpamAssassin/spam/0002.24b47bb3ce90708ae29d0aec1da08610
share/SpamAssassin/spam/0003.4b3d943b8df71af248d12f8b2e7a224a
share/SpamAssassin/spam/0004.1874ab60c71f0b31b580f313a3f6e777
Bib-Tools
view release on metacpan or search on metacpan
lib/Bib/Tools.pm view on Meta::CPAN
sub new {
my $self;
# defaults
$self->{refs} = []; # the references
$self->{nodoi_refs} = [];
$self->{duprefs} = [];
$self->{html}=0;
$self->{ratelimit}=5; # limit of 5 crossref queries per sec
$self->{last} = {};
bless $self;
lib/Bib/Tools.pm view on Meta::CPAN
}
}
if (!$found) {
push @newrefs, $ref;
} else {
push @{$self->{duprefs}}, $ref;
}
}
$self->{refs} = \@newrefs;
}
Bio-Graphics
view release on metacpan or search on metacpan
lib/Bio/Graphics/RendererI.pm view on Meta::CPAN
# Get a renderer somehow, called $renderer
# create a new panel and render contents a feature collection onto it
my $config = new ConfigIO( $config_file )->getConfig();
my $features = $data_provider->getCollection();
my ( $tracks_rendered, $panel ) = $renderer->render( $features, $prefs );
=head1 DESCRIPTION
Renderer of Bio::SeqFeature::CollectionIs (collections of features)
onto a Bio::Graphics::Panel using a Bio::Graphics::ConfiguratorI for
BioPerl
view release on metacpan or search on metacpan
examples/tk/gsequence.pl view on Meta::CPAN
$feature_tree->show_all();
&update_feature_paned2;
}
sub store_prefs
{
}
sub update_pref_window
{
examples/tk/gsequence.pl view on Meta::CPAN
my $button = new Gtk::Button( "Save" );
$bbox->add( $button );
$button->signal_connect("clicked",
# close button handler
sub{ $pref_window->hide();
&store_prefs();
});
$button = new Gtk::Button( "Close" );
$bbox->add( $button );
$button->signal_connect("clicked",
BokkaKumiai
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
Brownie
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
Browsermob-Proxy
view release on metacpan or search on metacpan
}
FIREFOX_PROXY: {
my $mock_server = generate_mock_server();
my $firefox_prefs = Browsermob::Proxy->new(
server_port => $server_port,
port => $port,
mock => $mock_server
)->firefox_proxy('do not initiate');
network.proxy.ssl
network.proxy.ssl_port
/;
foreach (@required_keys) {
ok(exists $firefox_prefs->{$_}, $_ . ' exists in firefox prefs.');
}
}
}
BASIC_AUTH: {
Bundle-CPAN
view release on metacpan or search on metacpan
but not everybody can compile, namely Expect and Module::Signature.
I've taken the liberty to also add YAML::Syck because of its speed
advantage.
Kwalify verifies that the files in the prefs_dir/ directory are
written according to the specs.
Last not least every full installation of CPAN needs the
CPAN::Reporter. I put it into this xxl bundle because it may be a bit
overkill for small installations. Maybe we will shift it over to
Business-Barcode-EAN13
view release on metacpan or search on metacpan
lib/Business/Barcode/EAN13.pm view on Meta::CPAN
use Business::Barcode::EAN13 qw/valid_barcode check_digit issuer_ccode best_barcode/;
my $is_valid = valid_barcode("5023965006028");
my $check_digit = check_digit("502396500602");
my $country_code = issuer_ccode("5023965006028");
my $best_code = best_barcode(\@barcodes, \@prefs);
=head1 DESCRIPTION
These subroutines will tell you whether or not an EAN-13 barcode is
self-consistent: i.e. whether or not it checksums correctly.
lib/Business/Barcode/EAN13.pm view on Meta::CPAN
return "";
}
=head2 best_barcode
my $best_barcode = best_barcode(\@list_of_barcodes, \@optional_prefs);
Given an arrayref of barcodes, this will return the "most preferred"
barcode from the list.
If you don't pass any preferences, this will be the first valid barcode
lib/Business/Barcode/EAN13.pm view on Meta::CPAN
sub best_barcode {
my $bref = shift;
my $pref_ref = shift || [];
_build_prefix() unless %prefix;
my @prefs = map { @{ $prefix{$_} || [$_] } } @$pref_ref;
my $best = "";
my @invalids;
BARCODE: foreach my $barcode (@$bref) {
unless (valid_barcode($barcode)) {
push @invalids => $barcode if (length $barcode < 13);
next BARCODE;
}
# if we have no conditions, then any valid match wins ...
return $barcode unless @prefs;
PREF: foreach my $pref (0 .. @prefs - 1) {
next PREF unless ($barcode =~ /^$prefs[$pref]/);
return $barcode if ($pref == 0);
$best = $barcode;
splice @prefs, $pref;
next BARCODE;
}
$best = $barcode;
}
CAM-PDF
view release on metacpan or search on metacpan
bin/pdfinfo.pl view on Meta::CPAN
{
$file = 'STDIN';
}
my $size = length $doc->{content};
my $pages = $doc->numPages();
my @prefs = $doc->getPrefs();
my $pdfversion = $doc->{pdfversion};
my $pdfinfo = $doc->{trailer}->{Info};
$pdfinfo &&= $doc->getValue($pdfinfo);
my @pagesize = (0,0);
bin/pdfinfo.pl view on Meta::CPAN
}
print 'Page Size: '.($pagesize[0] ? "$pagesize[0] x $pagesize[1] pts" : 'variable')."\n";
print 'Optimized: '.($doc->isLinearized()?'yes':'no')."\n";
print "PDF version: $pdfversion\n";
print "Security\n";
if ($prefs[0] || $prefs[1])
{
print " Passwd: '$prefs[0]', '$prefs[1]'\n";
}
else
{
print " Passwd: none\n";
}
print ' Print: '.($prefs[2]?'yes':'no')."\n";
print ' Modify: '.($prefs[3]?'yes':'no')."\n";
print ' Copy: '.($prefs[4]?'yes':'no')."\n";
print ' Add: '.($prefs[5]?'yes':'no')."\n";
if (@ARGV > 0)
{
print "---------------------------------\n";
}
}
CAM-PDFTaxforms
view release on metacpan or search on metacpan
ok(!$doc->canPrint(), 'canPrint');
ok(!$doc->canModify(), 'canModify');
ok(!$doc->canCopy(), 'canCopy');
ok(!$doc->canAdd(), 'canAdd');
my @prefs = (1,0,1,0);
$doc->setPrefs(@passwords, @prefs);
$doc->setPrefs(@passwords, @prefs);
is_deeply([$doc->getPrefs()], [@passwords, @prefs], 'getPrefs');
SKIP:
{
skip 'optional memory leak test skipped', 1 if (!$can_test_leaks);
Test::Memory::Cycle::memory_cycle_ok($doc, 'memory leak test');
clearerr();
$doc2 = CAM::PDFTaxforms->new($serialized, @passwords);
isnt($doc2, undef, 'open encrypted PDF, right password');
checkerr();
is_deeply([$doc2 ? $doc2->getPrefs() : ()], [@passwords, @prefs], 'getPrefs');
SKIP:
{
skip 'optional memory leak test skipped', 1 if (!$can_test_leaks);
Test::Memory::Cycle::memory_cycle_ok($doc2, 'memory leak test');
CGI
view release on metacpan or search on metacpan
# declares a quantitative score for it.
# This handles MIME type globs correctly.
####
sub Accept {
my($self,$search) = self_or_CGI(@_);
my(%prefs,$type,$pref,$pat);
my(@accept) = defined $self->http('accept')
? split(',',$self->http('accept'))
: ();
for (@accept) {
($pref) = /q=(\d\.\d+|\d+)/;
($type) = m#(\S+/[^;]+)#;
next unless $type;
$prefs{$type}=$pref || 1;
}
return keys %prefs unless $search;
# if a search type is provided, we may need to
# perform a pattern matching operation.
# The MIME types use a glob mechanism, which
# is easily translated into a perl pattern match
# First return the preference for directly supported
# types:
return $prefs{$search} if $prefs{$search};
# Didn't get it, so try pattern matching.
for (sort keys %prefs) {
next unless /\*/; # not a pattern match
($pat = $_) =~ s/([^\w*])/\\$1/g; # escape meta characters
$pat =~ s/\*/.*/g; # turn it into a pattern
return $prefs{$_} if $search=~/$pat/;
}
}
#### Method: user_agent
# If called with no parameters, returns the user agent.
( run in 1.575 second using v1.01-cache-2.11-cpan-0bb4e1dffa6 )