#!/usr/bin/env perl
use strict;
use warnings;

# Create tests (or dump the subroutines) of a list of given modules.

use Test::NaiveStubs;

my @modules = @ARGV ? @ARGV : die "Usage: perl $0 Some::Module Foo::Bar ...\n";

for my $module ( @modules ) {
    eval "require $module";
    if ( $@ ) {
        warn "Can't require $module: $@\n";
        next;
    }

    my $t = Test::NaiveStubs->new( module => $module );

#    $t->gather_subs;
#    use Data::Dumper; warn Dumper [sort keys %{ $t->subs }]; next;

    $t->create_test;
}
