windows9download

You Here : Home > Linux

Want 0.18

OS Support:


Publisher

Publisher Old version

Update:

July 3 2012

Download:

Want 0.18


Description

Want is a Perl module created to implement the "wants" command. Want is a Perl module created to implement the "wants" You want to use command.SYNOPSIS; sub foo: lvalue (if (want (qw'LVALUE ASSIGN ')) (print "We have been affected," you want ( 'assign'); lnoreturn;) elsif (Want ( 'list')) (rreturn (1, 2, 3)) elsif (Want ( 'BOOL')) (rreturn 0;) elsif (Want (qw'SCALAR! ref ')) (rreturn 23;) elsif (Want ( "hash")) (foo = (rreturn> 17, bar => 23))) return This module generalises the mechanism of function wantarray a basis for determining in detail how the return value will be immediately used. ... Examples use Carp 'croak'; use howmany Want ', the numbers of sub (my $ howmany = count () croak ( "Could not make an infinite list" ) if! Defined ($ count) return (1 .. $ count)) my ($ one, $ two, $ three) = number (); use Want 'want'; sub pi () (if (like array ('')) (return [3, 1, 4, 1, 5, 9]) elsif (Want ( 'list')) (return (3, 1, 4, 1, 5, 9)) else ( return 3;)) print pi-> [2] # prints 4 print ((pi) [3]) # prints 1 backstr sub: lvalue (if (want (qw'LVALUE ASSIGN ')) (my ($ a ) = do ( 'assign'), $ _ [0] = $ a reverse undef; return;) elsif (Want ( 'Rvalue')) (my $ t = scalar reverse $ _ [0]) else (carp ( "Not in the context ASSIGN ");)) return print" foo -> "(backstr" foo ")," No "; # foo -> backstr OOF (my $ robin) =" nibor "print" $ Robin Now $ Robinn "; # $ Robin Robin is now


Related Downloads


Software Tags

Want | Want 0.18 | Want Free Download | Want Reviews | Download Want

Size :

Next/Pre