view release on metacpan or  search on metacpan

src/PIL/misc/S29code.pl  view on Meta::CPAN

# fail


# bless 

# chr

# ord


 multi Conversions::List::list ( *@list --> List )
{
    @list; #XXX - sufficient to "Forces List Context"?
}


 multi Conversions::Item::item ($item --> Item )
{
    $item; #XXX - sufficient to "Forces generic Item context"?
}

 
 multi prefix:<:16> ( Str $hexstr = CALLER::<$_> --> Num )
{ Pugs::Internals::string_as_number(16,$hexstr) }
 multi prefix:<:8> ( Str $octstr = CALLER::<$_> --> Num )
{ Pugs::Internals::string_as_number(8,$octstr) }
 multi prefix:<:2> ( Str $binstr = CALLER::<$_> --> Num )
{ Pugs::Internals::string_as_number(2,$binstr) }
 multi prefix:<:10> ( Str $binstr = CALLER::<$_> --> Num )
{ Pugs::Internals::string_as_number(10,$decstr) }
# etc. XXX - etc?  arbitrary n?  how arbitrary?

sub Pugs::Internals::string_as_number (Int $radix, Str $string --> Num)
{ ... } # XXX - oh that is non-trivial.


package Time::Local {}
# gmtime 

# localtime 

# time


# study

# defined

# undef

# item 

# want

# caller


# tie tied untie


# -X accept alarm bind binmode chown close closedir connect eof fcntl
# fileno flock getc getpeername
# /[get|set][host|net|proto|serv|sock].*/ glob ioctl link listen 
# lstat mkdir open opendir pipe print printf read readdir readline
# readlink readpipe recv rename rewinddir rmdir seek seekdir select(both)
# send setsockopt shutdown slurp socket socketpair stat symlink
# syscall sysopen sysread sysseek syswrite tell telldir truncate umask
# unlink utime warn


# chroot crypt exec getlogin /[get|set][pw|gr].*/ kill setpgrp setpriority
# system times


# fork lock wait waitpid