1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#! perl
{
package Test::Overloaded::String;
use vars qw( $called_string_overload );
use strict;
use warnings;
use overload '""' => sub { $called_string_overload++ };
sub new { bless {}, shift }
sub foo { }
}
package main;
use strict;
use warnings;
use Test::More tests => 3;
use UNIVERSAL::can;
ok( eval { Test::Overloaded::String->new->can('foo') },
"->can should return true for an existing method" );
ok( !eval { Test::Overloaded::String->new->can('bar') },
"->can should return false for a non-existent method" );
ok( !$Test::Overloaded::String::called_string_overload,
"it should not trigger the string overload on the invocant in either case" );
|
