Result:
found more than 542 distributions - search limited to the first 2001 files matching your query
( run in 0.496 )
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/results.t-lwp-mock.out view on Meta::CPAN
"query" : "fl=bibcode&q=author%3APaunzen",
"scheme" : "https"
}
},
"response" : {
"body" : "HTTP/1.1 200 OK\r\nAccess-Control-Allow-Credentials: true\r\nAccess-Control-Allow-Headers: Accept, Authorization, Content-Type, Orcid-Authorization, X-BB-Api-Client-Version, X-CSRFToken\r\nAccess-Control-Allow-Methods: DELETE, GET,...
"class" : "Mojo::Message::Response"
},
"txn_num" : 0
},
{
t/results.t-lwp-mock.out view on Meta::CPAN
"query" : "fl=bibcode&q=author%3APaunzen&start=10",
"scheme" : "https"
}
},
"response" : {
"body" : "HTTP/1.1 200 OK\r\nAccess-Control-Allow-Credentials: true\r\nAccess-Control-Allow-Headers: Accept, Authorization, Content-Type, Orcid-Authorization, X-BB-Api-Client-Version, X-CSRFToken\r\nAccess-Control-Allow-Methods: DELETE, GET,...
"class" : "Mojo::Message::Response"
},
"txn_num" : 1
}
]
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
Audio-Nama
view release on metacpan or search on metacpan
lib/Audio/Nama/Bus.pm view on Meta::CPAN
# remove bus
delete $by_name{$bus->name};
}
}
{
package Audio::Nama::SendBusCooked;
use Audio::Nama::Log qw(logsub logpkg);
use v5.36; use Carp; our @ISA = 'Audio::Nama::SendBusRaw';
our $VERSION = 1.0;
# graphic routing: target -> slave -> bus_send_type
lib/Audio/Nama/Bus.pm view on Meta::CPAN
name => $name,
send_type => $dest_type,
send_id => $dest_id,
);
my $class = $bus_type eq 'cooked' ? 'Audio::Nama::SendBusCooked' : 'Audio::Nama::SendBusRaw';
my $bus = $class->new( @args );
$bus or carp("can't create bus!\n"), return;
}
lib/Audio/Nama/Bus.pm view on Meta::CPAN
$tn{$name}->remove, last if $name eq $to_remove
}
}
}
sub submixes { grep { (ref $_) =~ /SendBusCooked/ } values %Audio::Nama::Bus::by_name }
}
}
1;
__END__
AuthLLDAPSympa
view release on metacpan or search on metacpan
lib/Apache2/AuthLLDAPSympa.pm view on Meta::CPAN
$fileLog=$r->dir_config('LemonLDAPSympaLogFile')||'LemonSympaPlu.log';
$logMode=$r->dir_config('LemonLDAPSympaLogMode')||'ERROR';
if ($fileLog eq "") { $fileLog='LemonSympaPlu.log';}
if ($logMode eq "") { $logMode='ERROR';}
&logDebug('Start the Handler');
my $myCookies=$r->headers_in->get('Cookie');
&logDebug("The cookies are:$myCookies");
my $auth = $r->header_in("Authorization");
&logDebug("The Authorization is:$auth");
my ($user, $pass);
if ($auth ne "")
{
$auth =~ s/Basic//;
($user, $pass)=split(/:/, decode_base64($auth));
}
&logDebug("The user is:$user");
#If Authentification and no cookie sympa user we add a new cookie sympauser
if ($auth ne "" && $user ne "" && $myCookies !~ /sympauser/)
{
&logDebug("There is no Cookie sympauser");
&logDebug("There user is:$user");
&logDebug("Read mod_perl parameters");
#Read the parameters for the plugin
my $LDAPHOST=$r->dir_config('LemonLDAPSympaHost');
lib/Apache2/AuthLLDAPSympa.pm view on Meta::CPAN
use Language;
use Log;
use Auth;
use admin ;
use CGI;
use CGI::Cookie ;
require $SympaToolScript;
## Configuration
my $wwsconf = {};
## Change to your wwsympa.conf location
lib/Apache2/AuthLLDAPSympa.pm view on Meta::CPAN
## In case HTTP_HOST does not match cookie_domain
my $http_host = $ENV{'HTTP_HOST'};
$http_host =~ s/:\d+$//; ## suppress port
unless (($http_host =~ /$param->{'cookie_domain'}$/) ||
($param->{'cookie_domain'} eq 'localhost')) {
&wwslog('notice', 'Cookie_domain(%s) does NOT match HTTP_HOST; setting cookie_domain to %s', $param->{'cookie_domain'}, $http_host);
my $cookLog=$param->{'cookie_domain'};
&logDebug("Cookie_domain($cookLog=) does NOT match HTTP_HOST; setting cookie_domain to $http_host");
$param->{'cookie_domain'} = $http_host;
}
#The LDAP Traitment
lib/Apache2/AuthLLDAPSympa.pm view on Meta::CPAN
my $cookieVal= &set_cookie_ext($emailFinded, $Conf{'cookie'},$param->{'cookie_domain'}, $delayL, 'classic');
#my $cookieAltVal= &set_cookie_alte_ext($emailFinded, $Conf{'cookie'},$param->{'cookie_domain'}, $delayL, 'classic');
&logDebug ("The cookie is :$cookieVal");
#&logDebug ("The cookie Alte is :$cookieAltVal");
#$cookieVal="$cookieVal;$cookieAltVal"
$r->header_in('Cookie',"$myCookies;$cookieVal");
&logDebug ("The cookie is added to cookie List");
&logInfo ("The user $user is connected on Sympa with the email $emailFinded");
}
lib/Apache2/AuthLLDAPSympa.pm view on Meta::CPAN
if ($auth ne 'classic') {
$value .= ':'.$auth;
}
my $cookie;
if ($expires =~ /session/i) {
$cookie = new CGI::Cookie (-name => 'sympauser',
-value => $value,
-domain => $http_domain,
-path => '/'
);
}else {
$cookie = new CGI::Cookie (-name => 'sympauser',
-value => $value,
-expires => $expiration,
-domain => $http_domain,
-path => '/'
);
lib/Apache2/AuthLLDAPSympa.pm view on Meta::CPAN
if ($auth ne 'classic') {
$value .= ':'.$auth;
}
my $cookie;
if ($expires =~ /session/i) {
$cookie = new CGI::Cookie (-name => 'sympa_altemails',
-value => $value,
-domain => $http_domain,
-path => '/'
);
}else {
$cookie = new CGI::Cookie (-name => 'sympa_altemails',
-value => $value,
-expires => $expiration,
-domain => $http_domain,
-path => '/'
);
Authen-CAS-External
view release on metacpan or search on metacpan
lib/Authen/CAS/External.pm view on Meta::CPAN
# Module metadata
our $AUTHORITY = 'cpan:DOUGDUDE';
our $VERSION = '0.08';
use Authen::CAS::External::Library qw(TicketGrantingCookie);
use Moose 0.89;
use MooseX::StrictConstructor 0.08;
use MooseX::Types::Moose qw(Str);
use URI 1.22;
lib/Authen/CAS/External.pm view on Meta::CPAN
predicate => 'has_password',
trigger => sub { shift->clear_ticket_granting_cookie },
);
has ticket_granting_cookie => (
is => 'rw',
isa => TicketGrantingCookie,
clearer => 'clear_ticket_granting_cookie',
documentation => q{The Ticket Granting Cookie for the CAS user session},
predicate => 'has_ticket_granting_cookie',
);
has username => (
is => 'rw',
isa => Str,
( run in 0.496 second using v1.01-cache-2.11-cpan-e9199f4ba4c )