1package Testing;
2use 5.008_001;
3use strict;
4use warnings;
5require Exporter;
6our @ISA = qw(Exporter);
7our @EXPORT_OK = qw(_dumptostr);
8use Carp;
9
10sub _dumptostr {
11    my ($obj) = @_;
12    return join '', $obj->Dump;
13}
14
151;
16