cpan[1]> install Test::XML::Ordered
...
  SHLOMIF/Test-XML-Ordered-0.0.9.tar.gz
  ./Build install  -- OK

##</code><code>##

use Test::More tests => 1;

##</code><code>##

use Test::XML::Ordered;

##</code><code>##

Undefined subroutine &main::is_xml_ordered called at pm_1228677_test_xml_ordered.t line 28.

##</code><code>##

use Test::XML::Ordered 'is_xml_ordered';

##</code><code>##

use strict;
use warnings;

use Test::More tests => 2;
use Test::XML::Ordered 'is_xml_ordered';

my $expected = <<'EOX';
<a>
    <b>first</b>
    <b>second</b>
</a>
EOX

my $got_good = <<'EOX';
<a>
    <b>first</b>
    <b>second</b>
</a>
EOX

my $got_bad = <<'EOX';
<a>
    <b>second</b>
    <b>first</b>
</a>
EOX

is_xml_ordered(
    [string => $got_good],
    [string => $expected],
    {},
    'Test $got_good'
);

is_xml_ordered(
    [string => $got_bad],
    [string => $expected],
    {},
    'Test $got_bad'
);

##</code><code>##

$ prove -v pm_1228677_test_xml_ordered.t
pm_1228677_test_xml_ordered.t .. 
1..2
ok 1 - Test $got_good
# Texts differ: Got <<second>> at 5 ; Expected <<first>> at 5
not ok 2 - Test $got_bad
#   Failed test 'Test $got_bad'
#   at pm_1228677_test_xml_ordered.t line 35.
# Looks like you failed 1 test of 2.
Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/2 subtests 

Test Summary Report
-------------------
pm_1228677_test_xml_ordered.t (Wstat: 256 Tests: 2 Failed: 1)
  Failed test:  2
  Non-zero exit status: 1
Files=1, Tests=2,  0 wallclock secs ( 0.03 usr  0.00 sys +  0.12 cusr  0.01 csys =  0.16 CPU)
Result: FAIL