Re^3: Meaning of 'use constant USAGEMSG =

#!/usr/bin/perl

use strict;
use warnings;

my $c;

BEGIN {
    $c = <<USAGE;
What do you mean, too late?
USAGE
}

use constant USAGEMSG => $c;
print +USAGEMSG;

__END__
What do you mean, too late?
[download]

Comment on Re^3: Meaning of 'use constant USAGEMSG = > ...' Download Code

Replies are listed 'Best First'.
Re^4: Meaning of 'use constant USAGEMSG = > ...' by ikegami (Patriarch) on Feb 09, 2005 at 16:49 UTC
hum, I had tested `BEGIN { $c = <<USAGE; What do you mean, too late? USAGE use constant USAGEMSG => $c; }` [download] and `BEGIN { $c = <<USAGE; What do you mean, too late? USAGE } use constant USAGEMSG => $c;` [download] and both gave me the same error. Maybe the file wasn't properly saved for the second test? Thanks for verifying; it puzzled me.	[reply] [d/l] [select]