view release on metacpan or search on metacpan
lib/Dios/Types.pm view on Meta::CPAN
# Deparse the constraint sub (if necessary and possible)...
if (!length($constraint_desc//q{}) && eval{ require B::Deparse }) {
state $deparser = B::Deparse->new;
my ($hint_bits, $warning_bits) = (caller 0)[8,9];
$deparser->ambient_pragmas(
hint_bits => $hint_bits, warning_bits => $warning_bits, # '$[' => 0 + $[
);
$constraint_desc = $deparser->coderef2text($constraint);
$constraint_desc =~ s{\s*+ BEGIN \s*+ \{ (?&CODE) \}
(?(DEFINE) (?<CODE> [^{}]*+ (\{ (?&CODE) \} [^{}]*+ )*+ ))}{}gxms;
$constraint_desc =~ s{(?: (?:use|no) \s*+ (?: feature | warnings | strict ) | die \s*+ sprintf ) [^;]* ;}{}gxms;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dist/Man/Simple.pm view on Meta::CPAN
my $module_boilerplate_tests;
$module_boilerplate_tests .=
" module_boilerplate_ok('".$self->_module_to_pm_file($_)."');\n" for @modules;
my $boilerplate_tests = @modules + 2 + $[;
$t_files{'boilerplate.t'} = <<"HERE";
#!perl -T
use strict;
use warnings;
view all matches for this distribution
view release on metacpan or search on metacpan
data/t/000-load.t view on Meta::CPAN
BEGIN {
ok(eval 'use [% name %]; 1', 'use [% name %]'); ## no critic (ProhibitStringyEval, RequireCheckingReturnValueOfEval)
}
{
no warnings 'once'; ## no critic (ProhibitNoWarnings)
note("Testing [% name %] $[% name %]::VERSION, Perl $], $^X");
}
done_testing;
view all matches for this distribution
view release on metacpan or search on metacpan
.perlcriticrc view on Meta::CPAN
# add_themes =
# severity = 2
# maximum_violations_per_document = no_limit
# Regular expression to use to look for code in comments.
# commentedcoderegex = \$[A-Za-z_].*=
# Prohibit loading of debugging modules like Data::Dumper
[Bangs::ProhibitDebuggingModules]
# set_themes = bangs maintenance
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/XSVersion.pm view on Meta::CPAN
sub munge_file {
my ($self, $file) = @_;
return unless $file->name =~ /\.pm$/;
my $perl = $file->content;
my ($line, $module) = $perl =~ /((\$[\w:]+?::)VERSION.+?;)/;
$perl =~ s/((\$[\w:]+?::)VERSION.+?;)/$2XS_VERSION = $1/;
$perl =~ s/XSLoader::load\(([^)]+)\)/XSLoader::load($1, ${module}XS_VERSION)/;
$file->content($perl);
}
__PACKAGE__->meta->make_immutable;
view all matches for this distribution
view release on metacpan or search on metacpan
bin/html2ps view on Meta::CPAN
indent: 1em;
}
titlepage {
content: "<DIV align=center>
<H1><BIG>$T</BIG></H1>
<H2>$[author]</H2></DIV>";
margin-top: 4cm;
}
font {
times {
names: "Times-Roman
bin/html2ps view on Meta::CPAN
}
sub Getopts {
local($optlist)=@_;
local(@args,$_,$opt,$opts,$rest,$olist,$plist,$found,@popts);
local($errs)=0;
local($[)=0;
@args=split( /\|/, $optlist );
for $opt (@args) {
if(substr($opt,-1,1) ne ':') {$olist.=$opt}
else {$plist.=$opt}
}
view all matches for this distribution
view release on metacpan or search on metacpan
share/public/cleditor/jquery.cleditor.min.js view on Meta::CPAN
["Header 3","<h3>"],["Header 4","<h4>"],["Header 5","<h5>"],["Header 6","<h6>"]],useCSS:false,docType:'<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">',docCSSFile:"",bodyStyle:"margin:4px; font:1...
imagesPath:function(){return U()}};e.fn.cleditor=function(a){var b=e([]);this.each(function(c,d){if(d.tagName=="TEXTAREA"){var h=e.data(d,Y);h||(h=new cleditor(d,a));b=b.add(h)}});return b};var H="backgroundColor",A="button",x="buttonName",F="change"...
L=/iphone|ipad|ipod/i.test(navigator.userAgent),p={},Z,s=e.cleditor.buttons;e.each(s.init.split("|"),function(a,b){var c=b.split(","),d=c[0];s[d]={stripIndex:a,name:d,title:c[1]===""?d.charAt(0).toUpperCase()+d.substr(1):c[1],command:c[2]===""?d:c[2]...
f=c.$toolbar=e(m).addClass("cleditorToolbar").appendTo(h),i=e(m).addClass("cleditorGroup").appendTo(f);e.each(b.controls.split(" "),function(g,j){if(j==="")return true;if(j=="|"){e(m).addClass("cleditorDivider").appendTo(i);i=e(m).addClass("cleditorG...
k.stripIndex*-24;o.css(G);l&&o.attr(I,"on");k.popupName&&R(k.popupName,b,k.popupClass,k.popupContent,k.popupHover)}});h.insertBefore(d).append(d);if(!Z){e(document).click(function(g){g=e(g.target);g.add(g.parents()).is("."+B)||r()});Z=true}/auto|%/.t...
function(a){setTimeout(function(){t(a)?a.$area.select():v(a,"selectall")},0)}],["selectedHTML",function(a){D(a);a=y(a);if(l)return a.htmlText;var b=e("<layer>")[0];b.appendChild(a.cloneContents());return b.innerHTML},true],["selectedText",M,true],["s...
a):b.trigger(F)}})(jQuery);
view all matches for this distribution
view release on metacpan or search on metacpan
dyncall/doc/disas_examples/x64.win.disas view on Meta::CPAN
mov DWORD PTR [rsp+24], r8d ; | |
mov DWORD PTR [rsp+16], edx ; | | spill
mov DWORD PTR [rsp+8], ecx ; | |
push rdi ; |
sub rsp, 80 ; | prolog
mov BYTE PTR x$[rsp], 76 ; 'L' -> local area (of local array's space)
lea rax, QWORD PTR x$[rsp+1] ; |
mov rdi, rax ; |
xor eax, eax ; | zero-init rest of local array's space
mov ecx, 9 ; |
rep stosb ; |
mov eax, DWORD PTR h$[rsp] ; arg 6 (fetched from caller's frame param area), and ...
mov DWORD PTR [rsp+48], eax ; ... "pushed" onto stack
mov eax, DWORD PTR g$[rsp] ; arg 5 (fetched from caller's frame param area), and ...
mov DWORD PTR [rsp+40], eax ; ... "pushed" onto stack
mov eax, DWORD PTR f$[rsp] ; arg 4 (fetched from caller's frame param area), and ...
mov DWORD PTR [rsp+32], eax ; ... "pushed" onto stack
mov r9d, DWORD PTR e$[rsp] ; arg 3
mov r8d, DWORD PTR d$[rsp] ; arg 2
mov edx, DWORD PTR c$[rsp] ; arg 1
mov ecx, DWORD PTR b$[rsp] ; arg 0
call leaf_call ; push return addr and call
add rsp, 80 ; |
pop rdi ; | epilog
ret 0 ; |
nonleaf_call ENDP
dyncall/doc/disas_examples/x64.win.disas view on Meta::CPAN
mov DWORD PTR [rsp+16], edx
mov DWORD PTR [rsp+8], ecx
push rsi
push rdi
sub rsp, 312
mov BYTE PTR x$[rsp], 76
lea rax, QWORD PTR x$[rsp+1]
mov rdi, rax
xor eax, eax
mov ecx, 219
rep stosb
lea rax, QWORD PTR $T1[rsp]
mov rdi, rax
mov rsi, QWORD PTR f$[rsp]
mov ecx, 16
rep movsb
mov eax, DWORD PTR h$[rsp]
mov DWORD PTR [rsp+48], eax
mov eax, DWORD PTR g$[rsp]
mov DWORD PTR [rsp+40], eax
lea rax, QWORD PTR $T1[rsp]
mov QWORD PTR [rsp+32], rax
mov r9d, DWORD PTR e$[rsp]
mov r8d, DWORD PTR d$[rsp]
mov edx, DWORD PTR c$[rsp]
mov ecx, DWORD PTR b$[rsp]
call leaf_call
add rsp, 312
pop rdi
pop rsi
ret 0
dyncall/doc/disas_examples/x64.win.disas view on Meta::CPAN
$T1 = 80
main PROC
push rsi
push rdi
sub rsp, 104
mov DWORD PTR a$[rsp], 5
mov DWORD PTR a$[rsp+4], 6
mov QWORD PTR a$[rsp+8], 7
lea rax, QWORD PTR $T1[rsp]
lea rcx, QWORD PTR a$[rsp]
mov rdi, rax
mov rsi, rcx
mov ecx, 16
rep movsb
mov DWORD PTR [rsp+56], 9
dyncall/doc/disas_examples/x64.win.disas view on Meta::CPAN
mov DWORD PTR [rsp+16], edx
mov DWORD PTR [rsp+8], ecx
push rsi
push rdi
sub rsp, 376
mov BYTE PTR x$[rsp], 76
lea rax, QWORD PTR x$[rsp+1]
mov rdi, rax
xor eax, eax
mov ecx, 219
rep stosb
lea rax, QWORD PTR $T3[rsp]
mov rdi, rax
mov rsi, QWORD PTR h$[rsp]
mov ecx, 16
rep movsb
lea rax, QWORD PTR $T1[rsp]
mov rdi, rax
mov rsi, QWORD PTR g$[rsp]
mov ecx, 12
rep movsb
lea rax, QWORD PTR $T4[rsp]
mov rdi, rax
mov rsi, QWORD PTR d$[rsp]
mov ecx, 16
rep movsb
lea rax, QWORD PTR $T2[rsp]
mov rdi, rax
mov rsi, QWORD PTR c$[rsp]
mov ecx, 12
rep movsb
mov eax, DWORD PTR j$[rsp]
mov DWORD PTR [rsp+64], eax
mov eax, DWORD PTR i$[rsp]
mov DWORD PTR [rsp+56], eax
lea rax, QWORD PTR $T3[rsp]
mov QWORD PTR [rsp+48], rax
lea rax, QWORD PTR $T1[rsp]
mov QWORD PTR [rsp+40], rax
mov eax, DWORD PTR f$[rsp]
mov DWORD PTR [rsp+32], eax
mov r9d, DWORD PTR e$[rsp]
lea r8, QWORD PTR $T4[rsp]
lea rdx, QWORD PTR $T2[rsp]
mov ecx, DWORD PTR b$[rsp]
call leaf_call
add rsp, 376
pop rdi
pop rsi
ret 0
dyncall/doc/disas_examples/x64.win.disas view on Meta::CPAN
$T4 = 192
main PROC
push rsi
push rdi
sub rsp, 216
mov DWORD PTR a$[rsp], 2
mov DWORD PTR a$[rsp+4], 3
movss xmm0, DWORD PTR __real@40800000
movss DWORD PTR a$[rsp+8], xmm0
movsd xmm0, QWORD PTR __real@4014000000000000
movsd QWORD PTR b$[rsp], xmm0
mov QWORD PTR b$[rsp+8], 6
mov DWORD PTR c$[rsp], 9
mov DWORD PTR c$[rsp+4], 10
movss xmm0, DWORD PTR __real@41300000
movss DWORD PTR c$[rsp+8], xmm0
movsd xmm0, QWORD PTR __real@4028000000000000
movsd QWORD PTR d$[rsp], xmm0
mov QWORD PTR d$[rsp+8], 13
lea rax, QWORD PTR $T3[rsp]
lea rcx, QWORD PTR d$[rsp]
mov rdi, rax
mov rsi, rcx
mov ecx, 16
rep movsb
lea rax, QWORD PTR $T1[rsp]
lea rcx, QWORD PTR c$[rsp]
mov rdi, rax
mov rsi, rcx
mov ecx, 12
rep movsb
lea rax, QWORD PTR $T4[rsp]
lea rcx, QWORD PTR b$[rsp]
mov rdi, rax
mov rsi, rcx
mov ecx, 16
rep movsb
lea rax, QWORD PTR $T2[rsp]
lea rcx, QWORD PTR a$[rsp]
mov rdi, rax
mov rsi, rcx
mov ecx, 12
rep movsb
mov DWORD PTR [rsp+72], 15
dyncall/doc/disas_examples/x64.win.disas view on Meta::CPAN
r$ = 0
c$ = 32
call PROC
mov BYTE PTR [rsp+8], cl ; | spill
sub rsp, 24 ; | prolog
movzx eax, BYTE PTR c$[rsp] ; in arg 0 (fetched from spill area) -> eax, then ...
mov BYTE PTR r$[rsp], al ; ... -> struct in local area (top of stack, as leaf call and thus no reserved spill area)
movzx eax, BYTE PTR r$[rsp] ; reget same value into eax to return (small) struct via reg (a bit pointless to refetch)
add rsp, 24 ; |
ret 0 ; | epilog
call ENDP
a$ = 32
main PROC
sub rsp, 56 ; prolog
mov cl, 123 ; arg 0
call call ; push return addr and call
mov BYTE PTR a$[rsp], al ; write struct data to local area (123)
xor eax, eax ; return value
add rsp, 56 ; |
ret 0 ; | epilog
main ENDP
dyncall/doc/disas_examples/x64.win.disas view on Meta::CPAN
$T1 = 44
$T2 = 48
f PROC
$LN3:
sub rsp, 72 ; prolog
lea rcx, QWORD PTR n$[rsp] ; \ this ptr (NULL)
call NonTrivial::NonTrivial(void) ; | NonTrivial::NonTrivial() / ctor
mov DWORD PTR a$[rsp], 1 ; a = 1
mov eax, DWORD PTR a$[rsp] ; |
add eax, 123 ; | a += 123
mov DWORD PTR a$[rsp], eax ; /
mov ecx, DWORD PTR t$[rsp] ; f1 arg 0 (struct Trivial), via reg as small struct
call f1 ; call f1(struct Trivial)
mov eax, DWORD PTR a$[rsp] ; |
sub eax, 123 ; | a -= 123
mov DWORD PTR a$[rsp], eax ; /
lea rax, QWORD PTR $T1[rsp] ; @@@ unsure
mov QWORD PTR $T2[rsp], rax ; ... @@@
lea rdx, QWORD PTR n$[rsp] ; \ ptr to dest of copy of n
mov rcx, QWORD PTR $T2[rsp] ; | copy n ptr to n
call NonTrivial::NonTrivial(NonTrivial const &) ; / NonTrivial::NonTrivial(const NonTrivial&) / copy ctor
mov rcx, rax ; f2 arg 0 (ptr to copy of struct NonTrivial), via ptr as non-trivial
call f2 ; call f2(struct NonTrivial)
mov eax, DWORD PTR a$[rsp] ; |
sub eax, 12 ; | a -= 12
mov DWORD PTR a$[rsp], eax ; /
add rsp, 72 ; \
ret 0 ; | epilog
f ENDP
dyncall/doc/disas_examples/x64.win.disas view on Meta::CPAN
__$ReturnUdt$ = 48
NonTrivial f2(void) PROC
$LN3:
mov QWORD PTR [rsp+8], rcx
sub rsp, 40
mov rcx, QWORD PTR __$ReturnUdt$[rsp]
call NonTrivial::NonTrivial(void)
mov rax, QWORD PTR __$ReturnUdt$[rsp]
add rsp, 40
ret 0
NonTrivial f2(void) ENDP
a$ = 32
dyncall/doc/disas_examples/x64.win.disas view on Meta::CPAN
t$ = 40
n$ = 44
f PROC
$LN3:
sub rsp, 56 ; prolog
mov DWORD PTR a$[rsp], 1 ; a = 1
mov eax, DWORD PTR a$[rsp] ; |
add eax, 123 ; | a += 123
mov DWORD PTR a$[rsp], eax ; |
call f1 ; call f1()
mov DWORD PTR $T1[rsp], eax ;
mov eax, DWORD PTR $T1[rsp] ;
mov DWORD PTR t$[rsp], eax ;
mov eax, DWORD PTR a$[rsp] ; |
sub eax, 123 ; | a -= 123
mov DWORD PTR a$[rsp], eax ; |
lea rcx, QWORD PTR n$[rsp] ; ptr to space to hold non-triv retval
call NonTrivial f2(void) ; call f2()
mov eax, DWORD PTR a$[rsp] ; |
sub eax, 12 ; | a -= 12
mov DWORD PTR a$[rsp], eax ; /
add rsp, 56 ; \ epilog
ret 0 ; |
f ENDP
dyncall/doc/disas_examples/x64.win.disas view on Meta::CPAN
push rsi ;
push rdi ;
sub rsp, 152 ;
mov rax, QWORD PTR __security_cookie ;
xor rax, rsp ;
mov QWORD PTR __$ArrayPad$[rsp], rax ;
lea rax, QWORD PTR c$[rsp+8] ;
mov QWORD PTR ap$[rsp], rax ;
mov rax, QWORD PTR ap$[rsp] ;
add rax, 8 ;
mov QWORD PTR ap$[rsp], rax ;
mov rax, QWORD PTR ap$[rsp] ;
mov eax, DWORD PTR [rax-8] ;
mov DWORD PTR d$[rsp], eax ;
mov rax, QWORD PTR ap$[rsp] ;
add rax, 8 ;
mov QWORD PTR ap$[rsp], rax ;
mov rax, QWORD PTR ap$[rsp] ;
mov eax, DWORD PTR [rax-8] ;
mov DWORD PTR e$[rsp], eax ;
mov rax, QWORD PTR ap$[rsp] ;
add rax, 8 ;
mov QWORD PTR ap$[rsp], rax ;
mov rax, QWORD PTR ap$[rsp] ;
mov rax, QWORD PTR [rax-8] ;
lea rcx, QWORD PTR f$[rsp] ;
mov rdi, rcx ;
mov rsi, rax ;
mov ecx, 16 ;
rep movsb ;
mov rax, QWORD PTR ap$[rsp] ;
add rax, 8 ;
mov QWORD PTR ap$[rsp], rax ;
mov rax, QWORD PTR ap$[rsp] ;
mov eax, DWORD PTR [rax-8] ;
mov DWORD PTR g$[rsp], eax ;
mov rax, QWORD PTR ap$[rsp] ;
add rax, 8 ;
mov QWORD PTR ap$[rsp], rax ;
mov rax, QWORD PTR ap$[rsp] ;
mov eax, DWORD PTR [rax-8] ;
mov DWORD PTR h$[rsp], eax ;
mov ecx, 220 ;
call alloca ;
cdqe ;
mov BYTE PTR [rax], 76 ;
lea rax, QWORD PTR $T1[rsp] ;
lea rcx, QWORD PTR f$[rsp] ;
mov rdi, rax ;
mov rsi, rcx ;
mov ecx, 16 ;
rep movsb ;
mov eax, DWORD PTR h$[rsp] ;
mov DWORD PTR [rsp+48], eax ;
mov eax, DWORD PTR g$[rsp] ;
mov DWORD PTR [rsp+40], eax ;
lea rax, QWORD PTR $T1[rsp] ;
mov QWORD PTR [rsp+32], rax ;
mov r9d, DWORD PTR e$[rsp] ;
mov r8d, DWORD PTR d$[rsp] ;
mov edx, DWORD PTR c$[rsp] ;
mov ecx, DWORD PTR b$[rsp] ;
call leaf_call ;
mov QWORD PTR ap$[rsp], 0 ;
mov rcx, QWORD PTR __$ArrayPad$[rsp] ;
xor rcx, rsp ;
call __security_check_cookie ;
add rsp, 152 ;
pop rdi ;
pop rsi ;
dyncall/doc/disas_examples/x64.win.disas view on Meta::CPAN
push rsi ;
push rdi ;
sub rsp, 120 ;
mov rax, QWORD PTR __security_cookie ;
xor rax, rsp ;
mov QWORD PTR __$ArrayPad$[rsp], rax ;
mov DWORD PTR $S1$[rsp], 5 ;
mov DWORD PTR $S1$[rsp+4], 6 ;
mov QWORD PTR $S1$[rsp+8], 7 ;
lea rax, QWORD PTR $T1[rsp] ;
lea rcx, QWORD PTR $S1$[rsp] ;
mov rdi, rax ;
mov rsi, rcx ;
mov ecx, 16 ;
rep movsb ;
mov DWORD PTR [rsp+56], 9 ;
dyncall/doc/disas_examples/x64.win.disas view on Meta::CPAN
mov r8d, 2 ;
mov edx, 1 ;
xor ecx, ecx ;
call nonleaf_call ;
xor eax, eax ;
mov rcx, QWORD PTR __$ArrayPad$[rsp] ;
xor rcx, rsp ;
call __security_check_cookie ;
add rsp, 120 ;
pop rdi ;
pop rsi ;
view all matches for this distribution