The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use inc::Module::Install;
use strict;

name 'Net-PingFM';
all_from 'lib/Net/PingFM.pm';

requires Readonly => '1.03';
requires Moose => '0.55';
requires LWP => '5.812';
requires 'XML::Twig' => '3.26';

# prompt user to see if they want to run online tests?
my $prompt = join "\n", (
    'Online tests will need api/user keys and an internet connection.',
    q|Don't worry the tests (should not) post anything as we'll send posts with the debug flag!|,
    q|Your the user acount will have to have at least one service installed|,
    q|Run online tests?|,
    '',
);
my $run_online_tests = prompt $prompt, 'n';
my ( $api_key, $user_key ) = @_;

# if yes, prompt for user & api keys:
if ( $run_online_tests eq 'y' ) {
     $api_key = prompt 'Api key?';
     $user_key = prompt 'User key?';

    unless( $user_key && $api_key ){
        print qq|Don't have information to run online tests. Skipping them!\n|;
    }
}

# online tests run/don't run on the basis of the file t/run_online_tests
my $online_test_file = 't/run_online_tests';

# write test user/key info to cause online tests to be run
if ( $api_key && $user_key ) {
    open( OT, '>',  $online_test_file );
    print OT join ',', $api_key, $user_key;
    print OT "\n";
    close( OT );
}
# otherwise.. Ensure online tests file is removed.
else {
    unlink $online_test_file;
}


# ok, do the hard work!
repository 'http://github.com/draxil/net-pingfm';
WriteAll;

#fin#