同一ファイルで複数 namespace のテスト

namespace.sample.pl

#!/usr/bin/env perl

package TestPack;
use strict;
use warnings;

sub new {
    my ($class) = @_;
    return bless {}, $class;
}

sub sub_on_testpack {
    my $self = shift;
    'in the same file but other namespace'
}

1;

package main;
use strict;
use warnings;

print TestPack->new->sub_on_testpack() . "\n";

実行結果

$ perl ~/namespace.sample.pl
in the same file but other namespace