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

Re: use of "use X"

by Khen1950fx (Canon)
on Jan 18, 2012 at 08:29 UTC ( #948504=note: print w/replies, xml ) Need Help??


in reply to use of "use X"

I took your idea, following ikegami's advice, and wrote a test.
#!/usr/bin/perl -l use strict; use CGI; use Test::SubCalls; use Test::More tests => 2; BEGIN { my $debug = 1; if ($debug) { require warnings; import warnings; } } print "Using warnings"; sub_track( 'CGI::new' ); my $q1 = CGI->new; my $q2 = CGI->new; sub_calls( 'CGI::new', 2, "Running" ); sub_calls( 'CGI::new', 2, "Ran" ); done_testing(2);

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (4)
As of 2022-08-13 05:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?