Debug flag : Pragmas « Language Basics « Perl

1. Perl
2. Language Basics
3. 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