Debug flag : Pragmas « Language Basics « Perl

1.	Array
2.	CGI
3.	Class
4.	Data Type
5.	Database
6.	File
7.	GUI
8.	Hash
9.	Language Basics
10.	Network
11.	Regular Expression
12.	Report
13.	Statement
14.	String
15.	Subroutine
16.	System Functions
17.	Win32
18.	XML

Perl » Language Basics » Pragmas

Debug flag

   



#!/usr/bin/perl -s -w



use strict;

use vars '$debug';



use if $debug,             'File::Basename' => 'basename';

use if !$debug, autouse => 'File::Basename' => 'basename';



print "Before: ",join(",",keys %INC),"\n";

my $prog=basename($0);

print "After : ",join(",",keys %INC),"\n";

Related examples in the same category

1.	Syntac of using a module
2.	Use constant PI
3.	The diagnostics Pragma
4.	The strict Pragma and Words
5.	The warnings Pragma and the -w Switch

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.