perl - getting "defined" modules from a CPAN dist file? -


given cpan dist file (e.g. acme-chef-1.01.tar.gz), algorithm determine module-versions "defined" (or present) in dist file?

for instance, in 02packages.details.txt file, there 4 lines correspond dist file:

acme::chef                         1.01  s/sm/smueller/acme-chef-1.01.tar.gz acme::chef::container              1.00  s/sm/smueller/acme-chef-1.01.tar.gz acme::chef::ingredient             1.00  s/sm/smueller/acme-chef-1.01.tar.gz acme::chef::recipe                 1.00  s/sm/smueller/acme-chef-1.01.tar.gz

i want know how lines generated.

is procedure like:

  1. find of .pm files in dist file
  2. load each of .pm files , print out ${ "${pkg}::version"} $pkg package name corresponding .pm file name (i.e. if .pm file name foo/bar.pm $pkg foo::bar.)

is there code indexing procedure?

do have load module in order determine version is?

the actual code pause on github here. subroutines parse package , version declarations in lib/pause/pmfile.pm (packages_per_pmfile , parse_version). authoritative far happens make cpan work, it's not code you'd ever want use — pause 20 years old , after recent cleanup it's still pretty gross.

instead, @ module::metadata. give file, , provides pretty simple interface discover names of packages inside of file , versions might be.

it's simple as:

my $mm = module::metadata->new_from_file("my/module.pm"); $package ($mm->packages_inside) {     print "$package: ", $mm->version($package), "\n"; }

and indeed "one-liner" works:

find acme-chef-1.01 -name \*.pm \ | perl -mmodule::metadata -ln \ -e 'my $mm = module::metadata->new_from_file($_); ' \ -e 'print "$_: ", $mm->version($_) $mm->packages_inside' \ | sort

and outputs:

acme::chef: 1.01 acme::chef::container: 1.00 acme::chef::ingredient: 1.00 acme::chef::recipe: 1.00

Comments

Post a Comment

Popular posts from this blog

javascript - addthis share facebook and google+ url -

i attempting use addthis create simple url shares whichever current page user on when click share button. of right now, have twitter working. when user clicks, able see url populated in tweet box. when user clicks facebook or google+, url doesn't seem show in share box. <ul class="addthis_toolbox addthis_default_style "> <li><a class="addthis_button_facebook"><img src="/img/facebook-social.png" width="20" height="20" border="0" alt="share" /></a></li> <li><a class="addthis_button_twitter"><img src="/img/twitter-social.png" width="20" height="20" border="0" alt="share" /></a></li> <li><a class="addthis_button_google_plusone_share"><img src="/img/google-social.png" width="20" height="20" border="0" alt="s...
Read more

ios - Show keyboard with UITextField in the input accessory view -

i have buttona , when buttona clicked, want keyboard show uitextfield in inputaccessoryview. there way have keyboard show manually , set inputaccessoryview without having uitextfield initially? thanks. you cannot summon keyboard without object can become first responder. there 2 ways work around: subclass uiview , implement uikeyinput protocol in it. example: in .h file: @interface inputobject : uiview<uikeyinput> @property (nonatomic, copy) nsstring *text; @property (nonatomic, strong) uiview *inputaccessoryview; // must override inputaccessoryview , since it's readonly default @end in .m file, implement protocol: - (bool)canbecomefirstresponder { return yes; } - (bool)hastext { return [self.text length]; } - (void)inserttext:(nsstring *)text { nsstring *selftext = self.text ? self.text : @""; self.text = [selftext stringbyappendingstring:text]; [[nsnotificationcenter defaultcenter] postnotificationname:kinputobjec...
Read more

c++ - importing crypto++ in QT application and occurring linker errors? -

i trying use crypto++ sankore-3.1 qt program, i've installed qt sdk 4.8.1 using vc++ 2010 compiler. i've compiled , built crypto++ using microsoft visual studio 2010, , have needed lib files, include .h files , dll file in hand. i testes these library simple qt application in empty project using qt creator, added libraries .pro file , run successfully. .pro file blow: win32:config(release, debug|release): libs += -l$$pwd/../../dokuman/sankore- 3.1/plugins/cryptopp/win32/dll_output/release/ -lcryptopp else:win32:config(debug, debug|release): libs += -l$$pwd/../../dokuman/sankore-3.1/plugins/cryptopp/win32/dll_output/debug/ -lcrypto includepath += $$pwd/../../dokuman/sankore-3.1/plugins/cryptopp/include dependpath += $$pwd/../../dokuman/sankore-3.1/plugins/cryptopp/include sources += \ main.cpp win32:config(release, debug|release): libs += -l$$pwd/../../dokuman/sankore-3.1/plugins/cryptopp/win32/output/release/ -lcryptlib else:win32:config(debug, de...
Read more