#!/usr/bin/perl
# PODNAME: statprofilehtml
# ABSTRACT: generate Devel::StatProfiler HTML report

use 5.12.0;
use warnings;

use Devel::StatProfiler::Html;

my @files = @ARGV;

@files = glob('statprof.out.*')
    if not @files;
@files = glob('statprof.out')
    if not @files;
die "Missing input files (via ARGV or 'statprof.out.*' or 'statprof.out'\n"
    if not @files;

Devel::StatProfiler::Html::process_and_output(
    files   => \@files,
    output  => 'statprof',
);

exit 0;

__END__

=pod

=encoding UTF-8

=head1 NAME

statprofilehtml - generate Devel::StatProfiler HTML report

=head1 VERSION

version 0.54_01

=head1 AUTHORS

=over 4

=item *

Mattia Barbon <mattia@barbon.org>

=item *

Steffen Mueller <smueller@cpan.org>

=back

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2015 by Mattia Barbon, Steffen Mueller.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut
