#!perl -T
use strict;
use warnings;
use Test::More tests => 2;
package SubCaller::Check;
use Sub::Called;
use Test::More;
sub test {
ok( !Sub::Called::with_ampersand() );
}
sub test2 {
ok( Sub::Called::with_ampersand() );
}
package main;
SubCaller::Check::test();
&SubCaller::Check::test2();