Result:
found more than 687 distributions - search limited to the first 2001 files matching your query
( run in 0.622 )
Acme-ESP
view release on metacpan or search on metacpan
} @_;
my( $thought )= !@_ ? undef : join " ... ", @_;
return bless \$thought, 'Acme::ESP::Scanner';
}
sub O'o { [ shift,oO( @_ ) ]->[!$[] }
package Acme::ESP::Scanner;
use overload(
'.' => \&scan,
Acme-EyeDrops
view release on metacpan or search on metacpan
lib/Acme/EyeDrops.pm view on Meta::CPAN
which do not require sightly encoding.
To illustrate, consider the intriguing problem of creating
I<Buffy looking in the mirror>. Let's start with F<k.pl>:
open$[;chop,($==y===c)>$-&&($-=$=)for@:=<0>;
print$"x-(y---c-$-).reverse.$/for@:
Notice that EyeDrops-generated programs, by default, contain no
trailing spaces, which complicates the above program.
lib/Acme/EyeDrops.pm view on Meta::CPAN
|(( '.') ) ).+
((( (( ( (((
((( ( ( (((
((( ( '\\')))
))) ) ) ) )
) )))) )))))) .'$[;' . (
( ( (( ( (
( ( ( (( ( ( (( ( ( (
( ( '`') )))) ) )
) ) ))) )
) ))) ) )
Acme-Nothing
view release on metacpan or search on metacpan
lib/Acme/Nothing.pm view on Meta::CPAN
open my $fh, '<', \$Acme::Nothing::VERSION;
close $fh;
@INC = sub {
$INC{ $_[1] } = $_[1];
open my $fh, '<', \!$[ or die;
return $fh;
};
Internals::SvREADONLY( $_, 1 ) for @INC;
Internals::SvREADONLY( @INC, 1 );
Acme-PM-Barcelona
view release on metacpan or search on metacpan
lib/Acme/PM/Barcelona/12x5_ca.pod view on Meta::CPAN
=for latex \scriptsize
$_=q;Barcelona Perl Mongers;,$/=y,gaudi,,,;map$,+=(split//)*(-1)**$|++
,(split)[.11_09,1.714];$.=''!~m~erce~;$"=y,catalunya,,,$;=y,rambles,,,
$*=$/^$.;$:=$.+length,$@=$***$**$/**$*%$:,$%=$/*$"-$*;print+chr($_<0xA
?$.."$[$_":m:^$.:?$..$_:$_)for($**$**$/*$",$"*$@+$**$/,$**$,,$***$,,$/
*$,,$;,$***$/,$,*$/,$.<<$,,$%-$*,$"+$/,$***$,,(($,*$*)**$*)-$/,$***$/,
$@+$/,$:-($/**$*),$.,$:+$"+$*,$.<<$*,$,**$/-$:-$,,exp$:/$,,$",$.,$"*$*
,$***$,,log$.,$.,-$/+$"*$,,$/+$"*$;,$.,++$@,$***($/&=$/+Barcelona_pm))
=head2 Mòduls poc corrents del CPAN
Acme-Smirch
view release on metacpan or search on metacpan
undef $/; $_ = <CLEAN>;
print "$celebrity already smeared\n" and exit unless famous $_;
@dirt = qw&@- /. ~~ ;# ;; ;. ,. ); () *+ __ -( /@ .% /| ;_&; s/(.)/$dirt[ord($1)>>4].$dirt[ord($1)&15]/egs;
open A, ">$celebrity" or print "Could not smear the good name of $celebrity\n\n" and exit;
print A q#$==$';$;||$.|$|;$_='*$(^@(%_+&# . $_ . '&$#%^';print A <<'FILTH' and exit;;
';$__='`'&'&';$___="````"|"$[`$["|'`%",';$~=("$___$__-$[``$__"|"$___"|("$___$__-$[.%")).("'`"|"'$["|"'#").'/.*?&([^&]*)&.*/$'.++$=.("/``"|"/$[`"|"/#'").(";`/[\\`\\`$__]//`;"|";$[/[\\$[\\`$__]//`;"|";#/[\\\$\\.$__]//'").'@:=("@-","/.","~~",";#",";;","...
FILTH
}
1;
__END__
='*$ ( ^@(%_+&~~;# ~~/.~~
;_);;.);;#) ;~~~~;_,.~~,.* +,./|~
~;_);@-, .;.); ~ ~,./@@-__);@-);~~,.*+,.
/|);;;~~@-~~~~;;(),. ;.,./@,./@,.;_~~@-););,.
;_);~~,./@,.;;;./@,./ |~~~~;#-(@-__@-__&$#%^';$__
='`'&'&';$___="````" |"$[`$["|'`%",';$~=("$___$__-$[``$__"|
"$___"| ("$___$__-$[.%")).("'`"|"'$["|"'#").
'/.*?&([^&]*)&.*/$'.++$=.("/``"|"/$[`"|"/#'").(";`/[\\`\\`$__]//`;"
|";$[/[\\$[\\`$__]//`;"|";#/[\\\$\\.$__]//'").'@:=("@-","/.",
"~~",";#",";;",";.",",.",");","()","*+","__","-(","/@",".%","/|",
";_");@:{@:}=$%..$#:;'.('`'|"$["|'#')."/(..)(..)/".("```"|"``$["|
'#("').'(($:{$'.$=.'}<<'.(++$=+$=).')|($:{$'.$=.'}))/'.("```;"|
"``$[;"|"%'#;").("````'$__"|"%$[``"|"%&!,").${$[};`$~$__>&$=`;$_=
'*$(^@(%_+&@-__~~;#~~@-;.;;,.(),./.,./|,.-();;#~~@-);;;,.;_~~@-,./.,
./@,./@~~@-);;;,.(),.;.~~@-,.,.,.;_,./@,.-();;#~~@-,.;_,./|~~@-,.
,.);););@-@-__~~;#~~@-,.,.,.;_);~~~~@-);;;,.(),.*+);;# ~~@-,
./|,.*+,.,.);;;);*+~~@-,.*+,.;;,.;.,./.~~@-,.,.,.;_) ;~~~
~@-,.;;,.;.,./@,./.);*+,.;.,.;;@-__~~;#~~@-,.;;,.* +);;
Acme-Test-Weather
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use CPAN::MakeMaker;
WriteMakefile(
'NAME' => 'Acme::Test::Weather',
($[ >= 5.005) ?
(AUTHOR => 'Aaron Straup Cope (cpan@aaronland.net)',
ABSTRACT => 'Test the weather conditions for a user.') : (),
'VERSION_FROM' => 'lib/Acme/Test/Weather.pm',
'PREREQ_PM' => {
Sys::Hostname => '0',
Acme-Time-Baby
view release on metacpan or search on metacpan
Version 2010090301 Fri Sep 3 19:34:22 CEST 2010
+ Remove use of $[ - this is deprecated.
Version 2010020101 Mon Feb 1 23:04:22 CET 2010
+ Croation language, thanks to Slaven Rezic.
Version 2009122001
Acme-Tools
view release on metacpan or search on metacpan
=cut
sub ht2t {
my($f,$s,$r)=@_; 1>@_||@_>3 and croak; $s='' if @_==1;
$f=~s,.*?($s).*?(<table.*?)</table.*,$2,si;
my $e=0;$e++ while index($f,$s=chr($e))>=$[;
$f=~s/<t(d|r|h).*?>/\l$1$s/gsi;
$f=~s/\s*<.*?>\s*/ /gsi;
my @t=split("r$s",$f);shift @t;
$r||=sub{s/&(#160|nbsp);/ /g;s/&/&/g;s/^\s*(.*?)\s*$/$1/s;
s/(\d) (\d)/$1$2/g if /^[\d \.\,]+$/};
Advanced-Config
view release on metacpan or search on metacpan
t/02-basic_parse_line_02_overrides.t view on Meta::CPAN
DBUG_PUSH ( $fish );
DBUG_ENTER_FUNC ();
DBUG_PRINT ("TEST", "\n%s\n ",
'Performing Advanced::Config::Reader::parse_line() $[var] tests!');
# Doesn't expose methods if use_ok2() is used instead!
use_ok ( "Advanced::Config::Reader" );
use_ok ( "Advanced::Config::Options" );
t/02-basic_parse_line_02_overrides.t view on Meta::CPAN
DBUG_ENTER_FUNC (@ARGV);
dbug_ok (1, "In the MAIN program ..."); # Test # 3 ...
$opts = get_read_opts ( { assign => ':=', comment => ':',
variable_left => '$[', variable_right => ']',
quote_left => '<', quote_right => '>',
${oTag} => 1
} );
$assign = convert_to_regexp_string ($opts->{assign});
t/02-basic_parse_line_02_overrides.t view on Meta::CPAN
parse_tv ("Simple", "There are no comments!", "");
parse_tv ("Simple-2", "Comments are all spaces!", " ");
parse_tv ("Reglar", "Value with Comment", "This is a comment");
parse_tv ("Reglar-2", "I<m going to the park!", "I>ll go with you!");
parse_tv ("Reglar-3", "I<m going to the park!", 'I>ll go $[with] you!');
# The Balanced Quote Tests ...
parse_tv ("Quote-1", "<In the heat of the night>", "I<m at the park!");
parse_tv ("Quote-2", '"In the chill of the day"', '"Killroy" was here!');
t/02-basic_parse_line_02_overrides.t view on Meta::CPAN
parse_tv ("Messy-1", "<One>, <fine>, <day>", "<Sitting> <in> <a> <tree>");
parse_tv ("Odd-1", "<Once upon a time> Hello!", "Go on!");
# The Variable Replacement Tests ...
parse_tv ("Var-1", 'Help me with $[var1] resolve!', "");
parse_tv ("Var-2", 'Help me with $[var2] resolve!', "A constant");
parse_tv ("Var-3", 'Help me with $[var3] resolve!', 'A $[variable]');
parse_tv ("Var-4", 'Help me with $[var4] & $[var5] resolve!', 'A $[var1] $[var2]');
# Using the wrong anchors for Variable replacements ...
parse_tv ("Old-1", 'Help me with ${var3} resolve!', 'A ${variable}');
# Testing nested variable substitution ...
parse_tv ("Nest-1", 'Eval $[help_$[me:=to]_$[please]] $[also:-$[ran]]', 'Hello');
parse_tv ("Nest-2", 'Eval $[help_$[me:=to]_$[please]] $[also:-$[ran]]', 'Hello $[world]');
parse_tv ("Nest-3", 'Eval $[help_$[me:=to]_$[please]] $[also:-$[ran]]', 'Hello $[world] $[2:-$[3]]');
parse_tv ("Nest-4", 'Eval $[help_$[me:=to]_$[please]] $[also:-$[ran]]', 'Hello $[world] $[2#* ]');
# Corrupted Variable definitions ...
parse_tv ("Var-Unbal-0", 'Want to $[ $[help_$[me:=to]_$[please]] $[also#* ]', 'Static Comment');
parse_tv ("Var-Unbal-1", 'Want to $[ $[help_$[me:=to]_$[please]] $[also#* ]', 'Hello $[ $[world] $[2:-$[3]]');
parse_tv ("Var-Unbal-2", 'Want to $[help_$[me:=to]_$[please]] $[also#* ] $[', 'Hello $[world] $[2:-$[3]] $[');
parse_tv ("Var-Unbal-3", 'Want to $[help_$[me:=to]_$[please]] $[ ${also#* ]', 'Hello $[world] $[ ${2:-$[3]]');
parse_tv ("Var-Unbal-4", 'Ending ] $[help_$[#me]_$[please]] $[also#* ]', 'Hello ] $[world] $[2:-$[3]]');
parse_tv ("Var-Unbal-5", 'Ending $[help_$[me:=to]_$[please]] $[also#* ] ]', 'Hello $[world] $[2:-$[3]] ]');
parse_tv ("Var-Unbal-6", 'Ending $[help_$[me:=to]_$[please]] ] $[also#* ]', 'Hello $[world] } $[2:-$[3]]');
parse_tv ("Var-Unbal-7", 'Ending $[help_$[me:=to]_$[please]] ] $[also#* ]', 'Static Comment');
# Missing Variable definitions ...
parse_tv ("Missing-1", 'Help $[] me', 'Please! $[].');
parse_tv ("Missing-2", 'Help $[ ] again', 'Or Not! $[ ].');
parse_tv ("Missing-3", 'Help $[] again and $[ :=again]', 'Or Not! $[ ].');
# Since I didn't count the test cases, must end my program
# with a call to this method. After this we can't put any
# tests in the END block!
done_testing ();
Affix
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 ;
Album
view release on metacpan or search on metacpan
script/album view on Meta::CPAN
Xend
Xbegin 644 last.png
XMB5!.1PT*&@H````-24A$4@```"$````A"`````!RCYVS```!<4E$050XC863
XM/4M"41C'?_>HB"T.X@<0@BX1HE.MCFVB-1K1FC9)6"TNO2`MU6T-J[$4MX8&
XM_087(L@F/T`XM"2B7AN.+_?E6/_E.3SGQ__YWWMXM!;_R#^IHZ[[)N*S$;UF
XM8]!Q$[%`.A4"M!;\G)@$=3?1[I,\70*M1>_8U,O1L)OX_C#:R;,0`IJF7EWV
XM`(0WJKK9!`$-RG[//8`_3P,$HT$PNN!#5P`$W8X>!GBW9/O-A8G9Z>5"UKN'
XM103U<P`LX]&9QG:NC4L"L*[&.4WI`?7*"(!KNXN#X/G2BS@)GBIC`&[NE3D`
XM:K)8M]K.`H*:?'3+B">44R"[+OOYA#H'V9)L[T^'N*=L%^6?*.1F+:?'5E&F
XM.)@#3H_,H?``#B)[)&T+=L`^)3,!\@[`YK&Y*NM>W!E>$(FUOP'6)G8N`($O
XMT/]"K<])CC3EH1(8&J3!#ZE7<[<<43@8[61JOG-*37<.>LV&"ICO[=_RO+Y'
script/album view on Meta::CPAN
XM34["0!S%?RU%@HEA43D`B8G==L>V*JPY@@?P``90&R/&`_0`+#Q`UZ"V-^C2
XMNN(`RH*8V/!E7(BA\R%]FTEF?O/FS4O^1DR!K,VZGLHG=BE'9%&XG,A$H]SQ
XMJH`1PU<OH>+(1#K''>R#$9-U$\>OUV1B]AJD[GT5$Z+$&1XI`+7FT$DB,"'$
XMMY1S`.N"$$S6RTK]GX\>`YA,)X[XQ*>(F<K%\6,!\=)?[":>+M?L),;];]E4
XM)$8W*R670(S\A0*0[^KY6G40/#YZ.B!/'`ZTY>=SG-[N%1"T?0TB&K>-*R6+
XM]'3+Z,J5R:V?/90*"$[NI"SJ!UM-V<-NI#-AZT`F2N7YNV+TJ[=-C@Z^MFY6
XM`1VPP!LGY[ZM<0A2U]O.G%9_,P=9%.J`[=SNECH-LGX`6BE1+/?*'38`````
X(245.1*Y"8((`
X`
Xend
Xbegin 644 prev-gr.png
XMB5!.1PT*&@H````-24A$4@```"$````A"`````!RCYVS```!(4E$050XC873
XM,6[",!0&X-].(D2'TBAB)Q(27K.QY@8Y0@_0$[1+EO8$.0!'R,Z0W,`CZ136
XM"B'*T@B%B`ZE`K]GR%LLQ5^>GU_R1(F><,]KMZ4[@7,EFB)O:RI"+XF'`$0)
XM_+QI#!05U0'1^P,@2C2O6J7C$17[559%'T-(H-!J,64`H_E"Z0*00([49?L`
XMX+X@!R2Z=C"^<=$9`$AL:V4>T9E,LA=W7SWB>WTBU=`,K',DQV[-3I4$G.X+
XM&S`$*Y**MK:!:^&%HD?@:6(C1J6^C9BWM1'2,7_"!.VZ+VC;V9=CY?*_RW^D
XM.8*PVAN/'"H<[[!AB?[B\UQ'@O1H!<<,">`"\5(_IX$E0U9%\67FK/$_<T!3
script/album view on Meta::CPAN
XM=3\$^,=#N;:6:]>YCOU4AX)"B)Y<B'G`V9[]2,5VTZT*BO%F$H2CJT9<OC;X
XM@_LZ?$?4/"6A>*8=6L+-T8V\H\RVD1T#K\IY1MK#.TBOJ#X6?M6_#OQ3!%;>
XM(ISX8U$A0RW9)@9C_=D`P!_O8^M?&/BB[M_&/Q_>6T=+JVU#6X886&2LD>](
XMP>>V!7H'[8'A/P5H?]CZOX<T1M(U#49IA=0P29MF50IRJ'E&RW0''XUJ2?H)
XMINJZ=J5JMUI]];7<#C*R02JZG\035II%4%F95`YR37Y<^#/AY\4+_P`+6VM^
XM%I;I=/O`S(MMJ'E$[79#D9`ZJ:R_!T_Q#\<ZO'X>TOQ'JUQ,8F;9-J,@0(.N
XM<GI_C0!^FOBOXA>"?"MLUSX@\4:381JN<27*[V^BC+,?8`U\I?&_]KB?48)M
XM!^%EM<0-.#$VJ31?O<'C]RG.">S'D9Z`\CYVG\!7]G\5K#P1KEVJW-S<V\4T
XMT)W[1+@Y&>I`->OVW@/POX(_:+^'NDVTSVVGW",]U<W4P)9AY@W$G`7H!T`H
XM`I?L4Q:K:_M.PPZN+A+Y[*Y:Y%P3YA+1AOFSSDY!YHKI_A/J^DW_`.WY/=^&
XM[RWO-*O&N8XIXLE'5;,YVD]?F3KWP>O6BBX&]^WE9[O"LDH3F'68G)!Z!HI.
script/album view on Meta::CPAN
XM9TKP#^W!HOA[2O.^Q1PNL6]MSY>P8DD^[$G\>/2BMZYC2#]O_P`-3%L>=$K-
XMN/<VLJ@?H**]_"S=2A"4GK8\3$02JR2/2_VR[3[1X!\1IY8;=IT<QR?[D@.?
XMPVBOC?X+_$5/AW/J]S_9YO9KR!$B&_:%96)Y/7&":^YOVJ+/[5X*UM-@9I-"
XMN0N3P2$<C]2*^./V0O"NG^+_`(M'3-0T^WO1%I\MQ"L_W$D5TPY'?`+<'(R0
XM>H%:UJ,*T'3FKIA2JSHS4X/5%#Q/\:/B=>[+@W[Z3:SY,*V]N$#`>C$$GKUS
XM7H.E:1^TM;P+=VOB3'R[DB>\B;</H5*_G5?]M6P2VF\+RPQ!%5;J$[0`HP8B
XM`!^+5]0V^C6-A\/M!U*WU#S_`+1:6W!((.Z'.016<,%AX*R@ON-)XJM-WE-_
XM>?"?Q3^)_C7XAVNFZ5XJEBN9-&>?RVABVL=^T-NVG:<;."`.IKZM_96^,/PR
XMM_AIH/@2XUC^S-4LX"CQWD?E)+([EV*/RIRS'`)!]J\%_9;TE]5^-.M,+0W2
XM6ME<R.NW=@&5$R1W'S8K2_:Y\,^&]!MM(O=,TF"QU*]N)!*T0*;E0#.5Z9RP
XMYZU53#PG#D6ABIM2N?;5Y(1%OMKM+NU<9P6#8'^%93DA243<?05\?_"VQ^-6
( run in 0.622 second using v1.01-cache-2.11-cpan-27979f6cc8f )