Result:
found more than 539 distributions - search limited to the first 2001 files matching your query
( run in 0.931 )
App-news
view release on metacpan or search on metacpan
script/news view on Meta::CPAN
MemoryMax=100M
Environment="NNTPSERVER=localhost"
Environment="NEWS_INTRO_ID=<u4d0i0$n72d$1@sibirocobombus.campaignwiki>"
ExecStart=/home/alex/perl5/perlbrew/perls/perl-5.32.0/bin/perl /home/alex/perl5/perlbrew/perls/perl-5.32.0/bin/news daemon
=head2 Cookies
The web app stores name, username and password in an encrypted cookie which
expires one week after posting an article.
=head2 Caching
App-phoebe
view release on metacpan or search on metacpan
t/oddmuse-wiki.pl view on Meta::CPAN
# Internal variables:
our ($q, $bol, $OpenPageName, %Page, %Translate, %IndexHash, @IndexList,
@HtmlStack, @HtmlAttrStack, @Blocks, @Flags,
%Includes, $FootnoteNumber, $CollectingJournal, $HeaderIsPrinted,
%Locks, $Fragment, $Today, $ModulesDescription, %RssInterwikiTranslate,
$Message, $Now, %RecentVisitors, %MyInc, $WikiDescription, %InterSite, %OldCookie);
# Can be set outside the script: $DataDir, $UseConfig, $ConfigFile, $ModuleDir,
# $ConfigPage, $AdminPass, $EditPass, $ScriptName, $FullUrl, $RunCGI.
# 1 = load config file in the data directory
t/oddmuse-wiki.pl view on Meta::CPAN
# -1 = disabled, 0 = 10s; 1 = partial HTML cache; 2 = HTTP/1.1 caching
our $UseCache = 2;
our $SiteName = 'Wiki'; # Name of site (used for titles)
our $HomePage = 'HomePage'; # Home page
our $CookieName = 'Wiki'; # Name for this wiki (for multi-wiki sites)
our $MaxPost = 1024 * 210; # Maximum 210K posts (about 200K for pages)
our $StyleSheet = ''; # URL for CSS stylesheet (like '/wiki.css')
our $StyleSheetPage = ''; # Page for CSS sheet
our $LogoUrl = ''; # URL for site logo ('' for no logo)
t/oddmuse-wiki.pl view on Meta::CPAN
our %Languages = ();
our @KnownLocks = qw(main diff index merge visitors); # locks to remove
our $LockExpiration = 60; # How long before expirable locks are expired
our %LockExpires = (diff=>1, index=>1, merge=>1, visitors=>1); # locks to expire after some time
our %LockCleaners = (); # What to do if a job under a lock gets a signal like SIGINT. e.g. 'diff' => \&CleanDiff
our %CookieParameters = (username=>'', pwd=>'', homepage=>'', theme=>'', css=>'', msg=>'', lang=>'', embed=>$EmbedWiki,
toplinkbar=>$TopLinkBar, topsearchform=>$TopSearchForm, matchingpages=>$MatchingPages, );
our %Action = (rc => \&BrowseRc, rollback => \&DoRollback,
browse => \&BrowseResolvedPage, maintain => \&DoMaintain,
random => \&DoRandom, pagelock => \&DoPageLock,
history => \&DoHistory, editlock => \&DoEditLock,
t/oddmuse-wiki.pl view on Meta::CPAN
$Message = ''; # Warnings and non-fatal errors.
InitLinkPatterns(); # Link pattern can be changed in config files
InitModules(); # Modules come first so that users can change module variables in config
InitConfig(); # Config comes as early as possible; remember $q is not available here
InitRequest(); # get $q with $MaxPost; set these in the config file
InitCookie(); # After InitRequest, because $q is used
InitVariables(); # After config, to change variables, after InitCookie for GetParam
}
sub InitModules {
if ($UseConfig and $ModuleDir and IsDir($ModuleDir)) {
foreach my $lib (Glob("$ModuleDir/*.p[ml]")) {
t/oddmuse-wiki.pl view on Meta::CPAN
AllPagesList() unless $id;
InterInit() if $InterMap and (not $id or $id eq $InterMap);
%RssInterwikiTranslate = () if not $id or $id eq $RssInterwikiTranslate; # special since rarely used
}
sub InitCookie {
undef $q->{'.cookies'}; # Clear cache if it exists (for SpeedyCGI)
my $cookie = $q->cookie($CookieName);
%OldCookie = split(/$FS/, UrlDecode($cookie));
my %provided = map { $_ => 1 } $q->param;
for my $key (keys %OldCookie) {
SetParam($key, $OldCookie{$key}) unless $provided{$key};
}
CookieUsernameFix();
CookieRollbackFix();
}
sub CookieUsernameFix {
# Only valid usernames get stored in the new cookie.
my $name = GetParam('username', '');
$q->delete('username');
if (not $name) {
# do nothing
t/oddmuse-wiki.pl view on Meta::CPAN
} else {
SetParam('username', $name);
}
}
sub CookieRollbackFix {
my @rollback = grep(/rollback-(\d+)/, $q->param);
if (@rollback and $rollback[0] =~ /(\d+)/) {
SetParam('to', $1);
$q->delete('action');
SetParam('action', 'rollback');
t/oddmuse-wiki.pl view on Meta::CPAN
return $html;
}
$url = $ScriptName . (($UsePathInfo and $action !~ /=/) ? '/' : '?') . $action;
my $nameLink = $q->a({-href=>$url}, $name);
my %headers = (-uri=>$url);
my $cookie = Cookie();
$headers{-cookie} = $cookie if $cookie;
return $q->redirect(%headers);
}
sub DoRandom {
t/oddmuse-wiki.pl view on Meta::CPAN
return 1 if $q->http('HTTP_IF_NONE_MATCH') and GetParam('cache', $UseCache) >= 2
and $q->http('HTTP_IF_NONE_MATCH') eq PageEtag();
}
sub PageEtag {
my ($changed, %params) = CookieData();
return UrlEncode(join($FS, $LastUpdate||$Now, sort(values %params))); # no CTL in field values
}
sub FileFresh { # old files are never stale, current files are stale when the page was modified
return 1 if $q->http('HTTP_IF_NONE_MATCH') and GetParam('cache', $UseCache) >= 2
t/oddmuse-wiki.pl view on Meta::CPAN
$headers{-etag} = PageEtag();
}
$headers{-type} = GetParam('mime-type', $type);
$headers{-status} = $status if $status;
$headers{-Content_Encoding} = $encoding if $encoding;
my $cookie = Cookie();
$headers{-cookie} = $cookie if $cookie;
if ($q->request_method() eq 'HEAD') {
print $q->header(%headers), "\n\n"; # add newlines for FCGI because of exit()
exit; # total shortcut -- HEAD never expects anything other than the header!
}
return $q->header(%headers);
}
sub CookieData {
my ($changed, %params);
foreach my $key (keys %CookieParameters) {
my $default = $CookieParameters{$key};
my $value = GetParam($key, $default);
$params{$key} = $value if $value ne $default;
# The cookie is considered to have changed under the following
# condition: If the value was already set, and the new value is
# not the same as the old value, or if there was no old value, and
# the new value is not the default.
my $change = (defined $OldCookie{$key} ? ($value ne $OldCookie{$key}) : ($value ne $default));
$changed = 1 if $change; # note if any parameter changed and needs storing
}
return $changed, %params;
}
sub Cookie {
my ($changed, %params) = CookieData(); # params are URL encoded
if ($changed) {
my $cookie = join(UrlEncode($FS), %params); # no CTL in field values
return $q->cookie(-name=>$CookieName, -value=>$cookie, -expires=>'+2y', secure=>$ENV{'HTTPS'}, httponly=>1);
}
return '';
}
sub GetHtmlHeader { # always HTML!
t/oddmuse-wiki.pl view on Meta::CPAN
}
sub DoPassword {
my $id = shift;
print GetHeader('', T('Password')), $q->start_div({-class=>'content password'});
print $q->p(T('Your password is saved in a cookie, if you have cookies enabled. Cookies may get lost if you connect from another machine, from another account, or using another software.'));
if (not $AdminPass and not $EditPass) {
print $q->p(T('This site does not use admin or editor passwords.'));
} else {
if (UserIsAdmin()) {
print $q->p(T('You are currently an administrator on this site.'));
App-plackbench
view release on metacpan or search on metacpan
bin/plackbench view on Meta::CPAN
A simple example:
sub {
my $request = shift;
$request->header( Cookie => 'session=mysid' );
return;
}
The file can contain any valid Perl code, but the last statement in the file
must be a subroutine reference.
App-plx
view release on metacpan or search on metacpan
bin/plx-packed view on Meta::CPAN
$fatpacked{"File/pushd.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'FILE_PUSHD';
use strict;use warnings;package File::pushd;our$VERSION='1.009';our@EXPORT=qw(pushd tempd);our@ISA=qw(Exporter);use Exporter;use Carp;use Cwd qw(getcwd abs_path);use File::Path qw(rmtree);use File::Temp qw();use File::Spec;use overload q{""}=>sub...
FILE_PUSHD
$fatpacked{"HTTP/Tiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'HTTP_TINY';
package HTTP::Tiny;use strict;use warnings;our$VERSION='0.056';use Carp ();my@attributes;BEGIN {@attributes=qw(cookie_jar default_headers http_proxy https_proxy keep_alive local_address max_redirect max_size proxy no_proxy timeout SSL_options ver...
sub $sub_name {
my (\$self, \$url, \$args) = \@_;
\@_ == 2 || (\@_ == 3 && ref \$args eq 'HASH')
or Carp::croak(q/Usage: \$http->$sub_name(URL, [HASHREF])/ . "\n");
return \$self->request('$req_method', \$url, \$args || {});
App-remarkpl
view release on metacpan or search on metacpan
lib/App/remarkpl/public/remark.min.js view on Meta::CPAN
a.relevance>r.relevance&&(s=r,r=a)}),s.language&&(r.second_best=s),r}function u(e){return N.tabReplace||N.useBR?e.replace(x,function(e,t){return N.useBR&&"\n"===e?"<br>":N.tabReplace?t.replace(/\t/g,N.tabReplace):void 0}):e}function h(e,t,a){var r=t?...
}),e.COMMENT("#cs","#ce"),e.COMMENT("#comments-start","#comments-end")]},n={begin:"\\$[A-z0-9_]+"},i={className:"string",variants:[{begin:/"/,end:/"/,contains:[{begin:/""/,relevance:0}]},{begin:/'/,end:/'/,contains:[{begin:/''/,relevance:0}]}]},l={va...
beginKeywords:"class interface",end:/[{;=]/,illegal:/[^\s:]/,contains:[e.TITLE_MODE,e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE]},{beginKeywords:"namespace",end:/[{;=]/,illegal:/[^\s:]/,contains:[e.inherit(e.TITLE_MODE,{begin:"[a-zA-Z](\\.?\\w)*"}),...
},a={className:"params",begin:/\(/,end:/\)/,excludeBegin:!0,excludeEnd:!0},r={className:"symbol",variants:[{begin:/\=[lgenxc]=/},{begin:/\$/}]},s={className:"comment",variants:[{begin:"'",end:"'"},{begin:'"',end:'"'}],illegal:"\\n",contains:[e.BACKSL...
},{begin:":\\s*"+t}]}]}}},{name:"hsp",create:function(e){return{case_insensitive:!0,lexemes:/[\w\._]+/,keywords:"goto gosub return break repeat loop continue wait await dim sdim foreach dimtype dup dupptr end stop newmod delmod mref run exgoto on mca...
},contains:[t,{className:"keyword",begin:"\\bend\\sif\\b"},{className:"function",beginKeywords:"function",end:"$",contains:[t,s,e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,e.BINARY_NUMBER_MODE,e.C_NUMBER_MODE,r]},{className:"function",begin:"\\bend\\s+",e...
contains:[{className:"comment",begin:/\(\*/,end:/\*\)/},e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,e.C_NUMBER_MODE,{begin:/\{/,end:/\}/,illegal:/:/}]}}},{name:"matlab",create:function(e){var t=[e.C_NUMBER_MODE,{className:"string",begin:"'",end:"'",contai...
illegal:"</",contains:[e.C_NUMBER_MODE,e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,{className:"string",begin:"`",end:"`",contains:[e.BACKSLASH_ESCAPE]},{begin:"[\\$\\%\\@](\\^\\w\\b|#\\w+|[^\\s\\w{]|{\\w+}|\\w+)"},e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_M...
contains:[i]});return{aliases:["ps"],lexemes:/-?[A-z\.\-]+/,case_insensitive:!0,keywords:{keyword:"if else foreach return function do while until elseif begin for trap data dynamicparam end break throw param continue finally in switch exit filter try...
},{className:"meta",begin:"#\\!?\\[",end:"\\]",contains:[{className:"meta-string",begin:/"/,end:/"/}]},{className:"class",beginKeywords:"type",end:";",contains:[e.inherit(e.UNDERSCORE_TITLE_MODE,{endsParent:!0})],illegal:"\\S"},{className:"class",beg...
literal:"true false nil"},contains:[e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE,e.NUMBER_MODE,a,t.preprocessor],illegal:/#/}}},{name:"sql",create:function(e){var t=e.COMMENT("--","$");return{case_insensitive:!0,illegal:/[<>{}*#]/,contains:[{beginKey...
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....
App-sitelenmute
view release on metacpan or search on metacpan
share/view/mootools-core-1.4.js view on Meta::CPAN
web build:
- http://mootools.net/core/76bf47062d6c1983d66ce47ad66aa0e0
packager build:
- packager build Core/Core Core/Array Core/String Core/Number Core/Function Core/Object Core/Event Core/Browser Core/Class Core/Class.Extras Core/Slick.Parser Core/Slick.Finder Core/Element Core/Element.Style Core/Element.Event Core/Element.Delegati...
copyrights:
- [MooTools](http://mootools.net)
licenses:
share/view/mootools-core-1.4.js view on Meta::CPAN
Object.each(obj,function(value,key){var json=JSON.encode(value);if(json){string.push(JSON.encode(key)+":"+json);}});return"{"+string+"}";case"number":case"boolean":return""+obj;
case"null":return"null";}return null;};JSON.decode=function(string,secure){if(!string||typeOf(string)!="string"){return null;}if(secure||JSON.secure){if(JSON.parse){return JSON.parse(string);
}if(!JSON.validate(string)){throw new Error("JSON could not decode the input; security is enabled and the value is not secure.");}}return eval("("+string+")");
};})();Request.JSON=new Class({Extends:Request,options:{secure:true},initialize:function(a){this.parent(a);Object.append(this.headers,{Accept:"application/json","X-Request":"JSON"});
},success:function(c){var b;try{b=this.response.json=JSON.decode(c,this.options.secure);}catch(a){this.fireEvent("error",[c,a]);return;}if(b==null){this.onFailure();
}else{this.onSuccess(b,c);}}});var Cookie=new Class({Implements:Options,options:{path:"/",domain:false,duration:false,secure:false,document:document,encode:true},initialize:function(b,a){this.key=b;
this.setOptions(a);},write:function(b){if(this.options.encode){b=encodeURIComponent(b);}if(this.options.domain){b+="; domain="+this.options.domain;}if(this.options.path){b+="; path="+this.options.path;
}if(this.options.duration){var a=new Date();a.setTime(a.getTime()+this.options.duration*24*60*60*1000);b+="; expires="+a.toGMTString();}if(this.options.secure){b+="; secure";
}this.options.document.cookie=this.key+"="+b;return this;},read:function(){var a=this.options.document.cookie.match("(?:^|;)\\s*"+this.key.escapeRegExp()+"=([^;]*)");
return(a)?decodeURIComponent(a[1]):null;},dispose:function(){new Cookie(this.key,Object.merge({},this.options,{duration:-1})).write("");return this;}});
Cookie.write=function(b,c,a){return new Cookie(b,a).write(c);};Cookie.read=function(a){return new Cookie(a).read();};Cookie.dispose=function(b,a){return new Cookie(b,a).dispose();
};(function(i,k){var l,f,e=[],c,b,d=k.createElement("div");var g=function(){clearTimeout(b);if(l){return;}Browser.loaded=l=true;k.removeListener("DOMContentLoaded",g).removeListener("readystatechange",a);
k.fireEvent("domready");i.fireEvent("domready");};var a=function(){for(var m=e.length;m--;){if(e[m]()){g();return true;}}return false;};var j=function(){clearTimeout(b);
if(!a()){b=setTimeout(j,10);}};k.addListener("DOMContentLoaded",g);var h=function(){try{d.doScroll();return true;}catch(m){}return false;};if(d.doScroll&&!h()){e.push(h);
c=true;}if(k.readyState){e.push(function(){var m=k.readyState;return(m=="loaded"||m=="complete");});}if("onreadystatechange" in k){k.addListener("readystatechange",a);
}else{c=true;}if(c){j();}Element.Events.domready={onAdd:function(m){if(l){m.call(this);}}};Element.Events.load={base:"load",onAdd:function(m){if(f&&this==i){m.call(this);
App-traveller
view release on metacpan or search on metacpan
## Deployment
If you want to know more, see
[Mojolicious::Guides::Tutorial](https://metacpan.org/pod/Mojolicious::Guides::Tutorial),
[Mojolicious::Guides::Cookbook](https://metacpan.org/pod/Mojolicious::Guides::Cookbook),
[Mojo::Server::Hypnotoad](https://metacpan.org/pod/Mojo::Server::Hypnotoad),
and so on.
One way to do it, for `https://campaignwiki.org/traveller`:
App-unbelievable
view release on metacpan or search on metacpan
eg/views/index.tt view on Meta::CPAN
<h3>Browse the documentation</h3>
<ul class="links">
<li><a
href="https://metacpan.org/pod/Dancer2::Manual">Introduction</a></li>
<li><a href="https://metacpan.org/pod/Dancer2::Cookbook">Cookbook</a></li>
<li><a
href="https://metacpan.org/pod/Dancer2::Tutorial"
title="a tutorial to build a small blog engine with Dancer">Tutorial</a></li>
</ul>
</li>
AproJo
view release on metacpan or search on metacpan
share/files/public/skins/default/jquery-ui-1.9.1.custom/development-bundle/external/jquery.cookie.js view on Meta::CPAN
/*jslint browser: true */ /*global jQuery: true */
/**
* jQuery Cookie plugin
*
* Copyright (c) 2010 Klaus Hartl (stilbuero.de)
* Dual licensed under the MIT and GPL licenses:
* http://www.opensource.org/licenses/mit-license.php
* http://www.gnu.org/licenses/gpl.html
share/files/public/skins/default/jquery-ui-1.9.1.custom/development-bundle/external/jquery.cookie.js view on Meta::CPAN
* @option Boolean secure If true, the secure attribute of the cookie will be set and the cookie transmission will
* require a secure protocol (like HTTPS).
* @type undefined
*
* @name $.cookie
* @cat Plugins/Cookie
* @author Klaus Hartl/klaus.hartl@stilbuero.de
*/
/**
* Get the value of a cookie with the given key.
share/files/public/skins/default/jquery-ui-1.9.1.custom/development-bundle/external/jquery.cookie.js view on Meta::CPAN
* @param String key The key of the cookie.
* @return The value of the cookie.
* @type String
*
* @name $.cookie
* @cat Plugins/Cookie
* @author Klaus Hartl/klaus.hartl@stilbuero.de
*/
jQuery.cookie = function (key, value, options) {
// key and value given, set cookie...
Arabic
view release on metacpan or search on metacpan
lib/Arabic.pm view on Meta::CPAN
use 5.00503; # Galapagos Consensus 1998 for primetools
# use 5.008001; # Lancaster Consensus 2013 for toolchains
# 12.3. Delaying use Until Runtime
# in Chapter 12. Packages, Libraries, and Modules
# of ISBN 0-596-00313-7 Perl Cookbook, 2nd Edition.
# (and so on)
# Version numbers should be boring
# http://www.dagolden.com/index.php/369/version-numbers-should-be-boring/
# For the impatient, the disinterested or those who just want to follow
lib/Arabic.pm view on Meta::CPAN
sub unimport {}
sub Arabic::escape_script;
# 6.18. Matching Multiple-Byte Characters
# in Chapter 6. Pattern Matching
# of ISBN 978-1-56592-243-3 Perl Perl Cookbook.
# (and so on)
# regexp of character
my $qq_char = qr/(?> \\c[\x40-\x5F] | \\? (?:[\x00-\xFF] | [\x00-\xFF]) )/oxms;
my $q_char = qr/(?> [\x00-\xFF] | [\x00-\xFF] )/oxms;
lib/Arabic.pm view on Meta::CPAN
my $fh = gensym();
Earabic::_open_a($fh, "$filename.e") or die __FILE__, ": Can't write open file: $filename.e\n";
# 7.19. Flushing Output
# in Chapter 7. File Access
# of ISBN 0-596-00313-7 Perl Cookbook, 2nd Edition.
select((select($fh), $|=1)[0]);
if (0) {
}
lib/Arabic.pm view on Meta::CPAN
Pages: 1130
Print ISBN: 978-0-596-00492-7 | ISBN 10: 0-596-00492-3
Ebook ISBN: 978-1-4493-9890-3 | ISBN 10: 1-4493-9890-1
http://shop.oreilly.com/product/9780596004927.do
Perl Cookbook
By Tom Christiansen, Nathan Torkington
August 1998
Pages: 800
ISBN 10: 1-56592-243-3 | ISBN 13: 978-1-56592-243-3
http://shop.oreilly.com/product/9781565922433.do
Perl Cookbook, Second Edition
By Tom Christiansen, Nathan Torkington
Second Edition August 2003
Pages: 964
ISBN 10: 0-596-00313-7 | ISBN 13: 9780596003135
http://shop.oreilly.com/product/9780596003135.do
lib/Arabic.pm view on Meta::CPAN
Third Edition August 2006
Pages: 542
ISBN 10: 0-596-52812-4 | ISBN 13:9780596528126
http://shop.oreilly.com/product/9780596528126.do
Regular Expressions Cookbook
By Jan Goyvaerts, Steven Levithan
May 2009
Pages: 512
ISBN 10:0-596-52068-9 | ISBN 13: 978-0-596-52068-7
http://shop.oreilly.com/product/9780596520694.do
Regular Expressions Cookbook, 2nd Edition
By Jan Goyvaerts, Steven Levithan
Final Release Date: August 2012
Pages: 612
ISBN: 978-1-4493-1943-4 | ISBN 10:1-4493-1943-2
Archive-Extract-Libarchive
view release on metacpan or search on metacpan
inc/Devel/CheckLib.pm view on Meta::CPAN
Thanks to the cpan-testers-discuss mailing list for prompting us to write it
in the first place;
to Chris Williams for help with Borland support;
to Tony Cook for help with Microsoft compiler command-line options
=head1 COPYRIGHT and LICENCE
Copyright 2007 David Cantrell. Portions copyright 2007 David Golden.
Archive-Har
view release on metacpan or search on metacpan
lib/Archive/Har.pm view on Meta::CPAN
sub _xml_cookies {
my ( $self, $ie_object, $object ) = @_;
foreach my $ie_cookies ( $ie_object->getChildrenByTagName('cookies') ) {
my @cookies;
foreach my $ie_cookie ( $ie_cookies->getChildrenByTagName('cookie') ) {
my $cookie = Archive::Har::Entry::Cookie->new();
foreach my $ie_name ( $ie_cookie->getChildrenByTagName('name') ) {
$cookie->name( $ie_name->findvalue('text()') );
}
foreach my $ie_value ( $ie_cookie->getChildrenByTagName('value') ) {
$cookie->value( $ie_value->findvalue('text()') );
Ark-Plugin-Authentication
view release on metacpan or search on metacpan
lib/Ark/Plugin/Authentication.pm view on Meta::CPAN
=head1 SYNOPSIS
use Ark;
use_plugins qw/
Session
Session::State::Cookie
Session::Store::Memory
Authentication
Authentication::Credential::Password
Authentication::Store::Minimal
Ark
view release on metacpan or search on metacpan
lib/Ark/Plugin/Session/State/Cookie.pm view on Meta::CPAN
package Ark::Plugin::Session::State::Cookie;
use strict;
use warnings;
use Ark::Plugin 'Session';
has cookie_name => (
Array-To-Moose
view release on metacpan or search on metacpan
my @p2 = ( "Smith", "Alex" );
my @p3 = ( "Green", "Helen" );
# hobbies
my $h1 = 'Walking';
my $h2 = 'Cooking';
my $h3 = 'Cycling';
my $h4 = 'Quilting';
my $h5 = 'Baking';
Array-Unique
view release on metacpan or search on metacpan
lib/Array/Unique.pm view on Meta::CPAN
sub unique {
my $self = shift; # self or class
my %seen;
my @unique = grep defined $_ && !$seen{$_}++, @_;
# based on the Cookbook 1st edition and on suggestion by Jeff 'japhy' Pinyan
# fixed by Werner Weichselberger
}
sub TIEARRAY {
lib/Array/Unique.pm view on Meta::CPAN
the unique_value function (see later) AND you have to make sure you
don't forget to call it. I would say don't rely on remembering this.
There is good discussion about it in the 1st edition of the
Perl Cookbook of O'Reilly. I have copied the solutions here,
you can see further discussion in the book.
Extracting Unique Elements from a List (Section 4.6 in the Perl Cookbook 1st ed.)
# Straightforward
%seen = ();
@uniq = ();
ArrayData-Lingua-Word-EN-Medical-Glutanimate
view release on metacpan or search on metacpan
lib/ArrayData/Lingua/Word/EN/Medical/Glutanimate.pm view on Meta::CPAN
convulsivum
Conway
ConXn
cooing
cookei
Cook's
cool
cool.click
Cooley
Cooley's
CoolGlide
Articulate
view release on metacpan or search on metacpan
t/views/index.tt view on Meta::CPAN
<h3>Browse the documentation</h3>
<ul class="links">
<li><a
href="http://search.cpan.org/dist/Dancer/lib/Dancer/Introduction.pod">Introduction</a></li>
<li><a href="http://search.cpan.org/dist/Dancer/lib/Dancer/Cookbook.pod">Cookbook</a></li>
<li><a href="http://search.cpan.org/dist/Dancer/lib/Dancer/Deployment.pod">Deployment Guide</a></li>
<li><a
href="http://search.cpan.org/dist/Dancer/lib/Dancer/Tutorial.pod"
title="a tutorial to build a small blog engine with Dancer">Tutorial</a></li>
</ul>
Asterisk-LCR
view release on metacpan or search on metacpan
contrib/countries.en.txt view on Meta::CPAN
269 : Comoros
26971,Comoros / Anjouan -
26972,Comoros / Mohali -
26973,Comoros / Moroni -
242 : Congo
682 : Cook Islands
506 : Costa Rica
225 : Cote d'Ivoire
385 : Croatia
38598,Croatia / Mobile -
38599,Croatia / Mobile -
Astro-ADS
view release on metacpan or search on metacpan
t/metrics.t-lwp-mock.out view on Meta::CPAN
"query" : "",
"scheme" : "https"
}
},
"response" : {
"body" : "HTTP/1.1 200 OK\r\nAccess-Control-Allow-Credentials: true\r\nAccess-Control-Allow-Origin: http://0.0.0.0:8000\r\nConnection: keep-alive\r\nContent-Length: 4531\r\nContent-Security-Policy: default-src 'self'; object-src 'none'\r\nCo...
"class" : "Mojo::Message::Response"
},
"txn_num" : 0
},
{
t/metrics.t-lwp-mock.out view on Meta::CPAN
"query" : "",
"scheme" : "https"
}
},
"response" : {
"body" : "HTTP/1.1 200 OK\r\nAccess-Control-Allow-Credentials: true\r\nAccess-Control-Allow-Origin: http://0.0.0.0:8000\r\nConnection: keep-alive\r\nContent-Length: 772\r\nContent-Security-Policy: default-src 'self'; object-src 'none'\r\nCon...
"class" : "Mojo::Message::Response"
},
"txn_num" : 1
},
{
t/metrics.t-lwp-mock.out view on Meta::CPAN
"query" : "",
"scheme" : "https"
}
},
"response" : {
"body" : "HTTP/1.1 200 OK\r\nAccess-Control-Allow-Credentials: true\r\nAccess-Control-Allow-Origin: http://0.0.0.0:8000\r\nConnection: keep-alive\r\nContent-Length: 3797\r\nContent-Security-Policy: default-src 'self'; object-src 'none'\r\nCo...
"class" : "Mojo::Message::Response"
},
"txn_num" : 2
},
{
t/metrics.t-lwp-mock.out view on Meta::CPAN
"query" : "",
"scheme" : "https"
}
},
"response" : {
"body" : "HTTP/1.1 200 OK\r\nAccess-Control-Allow-Credentials: true\r\nAccess-Control-Allow-Origin: http://0.0.0.0:8000\r\nConnection: keep-alive\r\nContent-Length: 2607\r\nContent-Security-Policy: default-src 'self'; object-src 'none'\r\nCo...
"class" : "Mojo::Message::Response"
},
"txn_num" : 3
}
]
Astro-Bibcode
view release on metacpan or search on metacpan
EXOSA EXOSAT Express. ESA, EXPSAT Observatory
FA90 Proceedings of a Workshop held in Beijing, 30 Oct-6 Nov. 1992, Ed. Li
Qibin, Publ. World Scientific: "Frontiers of Astronomy in 1990s" ISBN
981-02-1514-2
FCPh Fundamentals of Cosmic Physics
F&CRe Reprints - University of Pennsylvania, Flower and Cook Observatory,
Philadelphia, Pennsylvania
FoPh Foundations of Physics
GC General Catalogue of 33342 Stars for the Epoch 1950. Ed.:B. Boss. Dudley
Observatory, Albany, New York. Publ.: Carnegie Institution of
Washington, Washington D.C., Publ. No 468, vol. 1-5, 1937.
PDAO Publications of the Dominion Astrophysical Observatory, Victoria, Canada
PDAUC Publications Departamento de Astronomia, Universidad de Chile
PDDO Publications of the David Dunlap Observatory
PDO Publications of the Dominion Observatory, Ottawa, Ontario, Canada
PF&CO Publications of the University of Pennsylvania, Astronomical Series,
Flower and Cook Astronomical Observatory
PGenA Publications de l'Observatoire de Geneve, Serie A
PGenB Publications de l'Observatoire de Geneve, Serie B
PGLO Publications of the Goethe Link Observatory of Indiana University,
Bloomington, Indiana
PGooO Publications of the Goodsell Observatory of Carlton College, Northfield,
Astro-SLA
view release on metacpan or search on metacpan
inc/Devel/CheckLib.pm view on Meta::CPAN
Thanks to the cpan-testers-discuss mailing list for prompting us to write it
in the first place;
to Chris Williams for help with Borland support;
to Tony Cook for help with Microsoft compiler command-line options
=head1 COPYRIGHT and LICENCE
Copyright 2007 David Cantrell. Portions copyright 2007 David Golden.
Astro-SpaceTrack
view release on metacpan or search on metacpan
inc/Astro/SpaceTrack/Dumper.pm view on Meta::CPAN
my @data = (
$resp->code(),
$resp->message(),
[
_dump_header_item( $resp, 'Content-Type' ),
_dump_header_item( $resp, 'Set-Cookie',
"chocolatechip=This bears no relation to any cookie set by Space Track; path=/; domain=www.space-track.org",
),
_dump_header_item( $resp, 'Status' ),
],
$content,
Astro-Telescope
view release on metacpan or search on metacpan
tmpl/MPC.dat view on Meta::CPAN
786 282.9345 0.77906 +0.62487 U.S. Naval Obs., Washington (since 1893)
787 282.9494 0.77934 +0.62451 U.S. Naval Obs., Washington (before 1893)
788 284.3667 0.76953 +0.63650 Mount Cuba Observatory, Wilmington
789 284.5940 0.73188 +0.67922 Litchfield Observatory, Clinton
790 284.2835 0.70343 +0.70840 Dominion Observatory, Ottawa
791 284.5236 0.76713 +0.63937 Flower and Cook Observatory, Philadelphia
792 288.30 0.753 +0.657 University of Rhode Island, Quonochontaug
793 286.2200 0.73660 +0.67407 Dudley Observatory, Albany (before 1893)
794 286.1100 0.74789 +0.66161 Vassar College Observatory, Poughkeepsie
795 286.0123 0.7589 +0.6491 Rutherford
796 286.45 0.755 +0.654 Stamford
Attribute-Handlers-Prospective
view release on metacpan or search on metacpan
demo/demo_rawdata.pl view on Meta::CPAN
package UNIVERSAL;
use Attribute::Handlers;
sub Cooked : ATTR(SCALAR) { print "@{$_[4]}\n" }
sub PostRaw : ATTR(SCALAR,RAWDATA) { print $_[4], "\n" }
sub PreRaw : ATTR(SCALAR,RAWDATA) { print $_[4], "\n" }
package main;
my $x : Cooked(1..5);
my $y : PreRaw(1..5);
my $z : PostRaw(1..5);
Attribute-Handlers
view release on metacpan or search on metacpan
demo/demo_rawdata.pl view on Meta::CPAN
package UNIVERSAL;
use Attribute::Handlers;
sub Cooked : ATTR(SCALAR) { print pop, "\n" }
sub PostRaw : ATTR(SCALAR,RAWDATA) { print pop, "\n" }
sub PreRaw : ATTR(SCALAR,RAWDATA) { print pop, "\n" }
package main;
my $x : Cooked(1..5);
my $y : PreRaw(1..5);
my $z : PostRaw(1..5);
Audio-DB
view release on metacpan or search on metacpan
DB/Query.pm view on Meta::CPAN
use strict 'vars';
use vars qw(@ISA $VERSION);
#use Apache::Constants qw(:common REDIRECT HTTP_NO_CONTENT);
#use CGI qw/:standard *table *div *TR/;
#use CGI::Cookie;
use DBI;
use Audio::DB::Factory;
use Audio::DB::Util::Rearrange;
use Audio::DB::Util::SystemConfig;
Audio-FLAC-Header
view release on metacpan or search on metacpan
return $formattedTime;
}
sub _bin2dec {
# Freely swiped from Perl Cookbook p. 48 (May 1999)
return unpack ('N', pack ('B32', substr(0 x 32 . $_[0], -32)));
}
sub _packInt32 {
# Packs an integer into a little-endian 32-bit unsigned int
( run in 0.931 second using v1.01-cache-2.11-cpan-39bf76dae61 )