Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^2: Splitting program into modules

by lis128 (Novice)
on Nov 11, 2018 at 17:16 UTC ( #1225587=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my $debug        = $ENV{'dbg'};
    
    sub debugInfo {    
    ...
        my $lineWhereCalled= ( caller(0) )[2] || ( caller(1) )[2];
        print STDERR ("\033[1;31m\t$iWasAt\033[0m\@\033[1;32m$lineWhereCal
    +led:\033[0m \t\t@_\n") if ($debug); 
    }
    
  2. or download this
        main@139:         wchodze w loopa, iteracja:4
        Database::sql_connect@144:         entry: 
        API::base@13:         entry: config
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (6)
As of 2019-09-17 19:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    The room is dark, and your next move is ...












    Results (216 votes). Check out past polls.

    Notices?