Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: Will the real Internals module please stand up?

by ikegami (Patriarch)
on Mar 01, 2009 at 05:28 UTC ( [id://747250]=note: print w/replies, xml ) Need Help??


in reply to Will the real Internals module please stand up?

>perl -wle"while(($n,$g)=each %Internals::) { print $n if *$g{CODE} }" hash_seed hv_clear_placeholders HvREHASH rehash_seed SvREADONLY SvREFCNT

ActivePerl v5.10.0 build 1001 built for MSWin32-x86-multi-thread

Update:

#!perl -wl my @todo = *::; while (@todo) { my $st = shift(@todo); my @sl = sort values %$st; print for map /^\*(.*)/, grep *$_{CODE}, @sl; push @todo, grep !/\*main::main::/, grep /::$/, @sl; }

ActivePerl v5.10.0 build 1001 built for MSWin32-x86-multi-thread:

ActivePerl::BUILD ActivePerl::CHANGELIST ActivePerl::PRODUCT DynaLoader::boot_DynaLoader Internals::HvREHASH Internals::SvREADONLY Internals::SvREFCNT Internals::hash_seed Internals::hv_clear_placeholders Internals::rehash_seed PerlIO::get_layers Regexp::DESTROY UNIVERSAL::DOES UNIVERSAL::VERSION UNIVERSAL::can UNIVERSAL::isa Win32::BuildNumber Win32::CopyFile Win32::DomainName Win32::FormatMessage Win32::FsType Win32::GetCwd Win32::GetFullPathName Win32::GetLastError Win32::GetLongPathName Win32::GetNextAvailDrive Win32::GetOSVersion Win32::GetShortPathName Win32::GetTickCount Win32::IsWin95 Win32::IsWinNT Win32::LoginName Win32::NodeName Win32::SetChildShowWindow Win32::SetCwd Win32::SetLastError Win32::Sleep Win32::Spawn Win32CORE::bootstrap attributes::bootstrap mro::_nextcan mro::get_isarev mro::get_linear_isa mro::get_mro mro::get_pkg_gen mro::invalidate_all_method_caches mro::is_universal mro::method_changed_in mro::set_mro re::is_regexp re::regname re::regnames re::regnames_count utf8::decode utf8::downgrade utf8::encode utf8::is_utf8 utf8::native_to_unicode utf8::unicode_to_native utf8::upgrade utf8::valid version::("" version::() version::(0+ version::(<=> version::(bool version::(cmp version::(nomethod version::boolean version::is_alpha version::new version::noop version::normal version::numify version::qv version::stringify version::vcmp PerlIO::Layer::NoWarnings PerlIO::Layer::find Tie::Hash::NamedCapture::CLEAR Tie::Hash::NamedCapture::DELETE Tie::Hash::NamedCapture::EXISTS Tie::Hash::NamedCapture::FETCH Tie::Hash::NamedCapture::FIRSTKEY Tie::Hash::NamedCapture::NEXTKEY Tie::Hash::NamedCapture::SCALAR Tie::Hash::NamedCapture::STORE Tie::Hash::NamedCapture::flags

ActivePerl v5.8.8 build 824 built for MSWin32-x86-multi-thread

ActivePerl::BUILD ActivePerl::CHANGELIST ActivePerl::PRODUCT DynaLoader::boot_DynaLoader Internals::HvREHASH Internals::SvREADONLY Internals::SvREFCNT Internals::hash_seed Internals::hv_clear_placeholders Internals::rehash_seed PerlIO::get_layers Regexp::DESTROY UNIVERSAL::VERSION UNIVERSAL::can UNIVERSAL::isa Win32::BuildNumber Win32::CopyFile Win32::DomainName Win32::FormatMessage Win32::FsType Win32::GetCwd Win32::GetFullPathName Win32::GetLastError Win32::GetLongPathName Win32::GetNextAvailDrive Win32::GetOSVersion Win32::GetShortPathName Win32::GetTickCount Win32::IsWin95 Win32::IsWinNT Win32::LoginName Win32::NodeName Win32::SetChildShowWindow Win32::SetCwd Win32::SetLastError Win32::Sleep Win32::Spawn Win32CORE::bootstrap attributes::bootstrap utf8::decode utf8::downgrade utf8::encode utf8::is_utf8 utf8::native_to_unicode utf8::unicode_to_native utf8::upgrade utf8::valid PerlIO::Layer::NoWarnings PerlIO::Layer::find

This is perl, v5.8.8 built for x86_64-linux-gnu-thread-multi:

DynaLoader::boot_DynaLoader Internals::HvREHASH Internals::SvREADONLY Internals::SvREFCNT Internals::hash_seed Internals::hv_clear_placeholders Internals::rehash_seed PerlIO::get_layers Regexp::DESTROY UNIVERSAL::VERSION UNIVERSAL::can UNIVERSAL::isa attributes::bootstrap utf8::decode utf8::downgrade utf8::encode utf8::is_utf8 utf8::native_to_unicode utf8::unicode_to_native utf8::upgrade utf8::valid PerlIO::Layer::NoWarnings PerlIO::Layer::find

Replies are listed 'Best First'.
Re^2: Will the real Internals module please stand up?
by Anonymous Monk on Mar 01, 2009 at 05:34 UTC
    Only code there
    $ perl -le'print for %Internals::' SvREFCNT *Internals::SvREFCNT hv_clear_placeholders *Internals::hv_clear_placeholders hash_seed *Internals::hash_seed SvREADONLY *Internals::SvREADONLY HvREHASH *Internals::HvREHASH rehash_seed *Internals::rehash_seed
      How is that better? The output is less readable and it introduces an assumption.
Re^2: Will the real Internals module please stand up?
by ysth (Canon) on Mar 01, 2009 at 19:43 UTC

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://747250]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others chilling in the Monastery: (5)
As of 2024-04-19 04:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found