15 |
my $uri = $dom->create_uri_reference ('http://www.uri.test/'); |
my $uri = $dom->create_uri_reference ('http://www.uri.test/'); |
16 |
ok UNIVERSAL::isa ($uri, 'Message::IF::URIReference'); |
ok UNIVERSAL::isa ($uri, 'Message::IF::URIReference'); |
17 |
|
|
18 |
|
ok $dom->can ('create_document'); |
19 |
|
my $doc = $dom->create_document; |
20 |
|
ok UNIVERSAL::isa ($doc, 'Message::IF::Document'); |
21 |
|
|
22 |
|
ok $dom->can ('create_document_type'); |
23 |
|
my $doc = $dom->create_document_type; |
24 |
|
ok UNIVERSAL::isa ($doc, 'Message::IF::DocumentType'); |
25 |
|
|
26 |
ok $dom->can ('no_such_method') ? 1 : 0, 0; |
ok $dom->can ('no_such_method') ? 1 : 0, 0; |
27 |
my $something_called = 0; |
my $something_called = 0; |
28 |
eval { |
eval { |