## our out-of-namespace mailer:
package OKMailerOO;
use Test::More;
sub new { return bless {} => shift; }
sub is_available { 1 }
sub send {
my ($self, $message) = @_;
ok(1, "mailer $self sent $message");
return 0 + $self;
}
1;
## our out-of-namespace mailer:
package OKMailerOO;
use Test::More;
sub new { return bless {} => shift; }
sub is_available { 1 }
sub send {
my ($self, $message) = @_;
ok(1, "mailer $self sent $message");
return 0 + $self;
}
1;