Help for this page

Select Code to Download


  1. or download this
    package My;
use warnings;
...

our $counter //= 10;
++$counter
  2. or download this
    #!/usr/bin/perl
use warnings;
...
say require My;         # 11
say require 'My.pm';    # In %INC, returns 1.
say require './My.pm';  # Not in %INC, thus 12!