#!/usr/bin/perl

use strict;
use warnings;

use Test::TAP::Model;
use Data::Dumper;

my $straps = Test::TAP::Model->new;

$straps->run_tests(@ARGV ? @ARGV : glob("t/*.t"));

print Dumper($straps->structure);

__END__

=pod

=head1 NAME

example.pl - a simple serializing test harness

=head1 SYNOPSIS

	$ perl example.pl t/foo.t t/bar.t > results.pl

This program will run either it's command line arguments or C<glob("t/*.t")>,
and use L<Data::Dumper> to print the results to standard output.

=head1 SEE ALSO

yaml_harness in the pugs repo

=cut