Check module availability :: Remember, remember, the velvet November


node:	Check module availability
template:	4
parent:	Perl
owner:	Harvie
viewed by:
created:	24.04.2010 - 17:49:42
updated:	24.04.2010 - 17:50:15

cwbe coordinatez:
101
63540
2076399
1655002
5310010

ABSOLUT
KYBERIA

permissions
you:	r,
system:	public
net:	yes

jde nejak osetrit nedostupnost modulu? rad bych pouzil modul pokud je dostupny, ale vim jak ho nahradit vlastnim kodem, pokud je to nezbytne nudna.

zkousel sem tohle a nejede to:





255 ;( harvie@harvie-ntb ~ $ perl -e 'use Net::DNS || print "fookn";'

syntax error at -e line 1, near "use Net::DNS ||"

Execution of -e aborted due to compilation errors.

000001010006354002076399016550020531001005310029

takto - BEGIN clause:
http://cpansearch.perl.org/src/NKUITSE/Time-AutoRes-0.02/lib/Time/AutoRes.pm
http://perldoc.perl.org/functions/use.html

00000101000635400207639901655002053100100531002905312733

dik ;)
to je ale osklivy :( tak jak sem to psal ja by to bylo prehlednejsi ;)

0000010100063540020763990165500205310010053100290531273305312739

ked je nieco v perle prehladne tak je to podozrive :)

000001010006354002076399016550020531001005310029053127330531273905312895

ja nechci aby to bylo prehledny, staci kdyz to bude kratky. prehlednost je jen o kognitivnich schopnostech programatora...

00000101000635400207639901655002053100100531002905312733053127390531289505312912

treba takto se mi to libi:

$ perl -e '$foo = eval "require Net::SMTP"; print($foo?"usen":"not usen");'
use
$ perl -e '$foo = eval "require Net::SMTPneexistuje"; print($foo?"usen":"not usen");'
not use