AnsibleModule

 view release on metacpan or  search on metacpan

t/ext/arg_test  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/env perl 
 
use strict; use warnings;
 
use lib 'lib';
use AnsibleModule;
 
my $module=AnsibleModule->new(argument_spec=>{hello => {required => 1, aliases=>['bye']}, yay => { default => 'yes' }});
my $params=$module->params;
$params->{msg}='arg_test';
 
$module->exit_json($params);
 
=head1

t/ext/echo  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/env perl 
 
use strict; use warnings;
 
 
use lib 'lib';
use AnsibleModule;
 
my $module=AnsibleModule->new(check_invalid_arguments=>0,argument_spec=>{hello => {}});
my $params=$module->params;
$params->{msg}='echo';
 
$module->exit_json($params);

t/ext/exit_json  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
#!/usr/bin/env perl 
 
use strict; use warnings;
use lib 'lib';
use AnsibleModule;
 
my $module=AnsibleModule->new();
 
$module->exit_json({msg=>"exit_json"});

t/ext/fail_json  view on Meta::CPAN

1
2
3
4
5
6
7
8
#!/usr/bin/env perl 
 
use lib 'lib';
use AnsibleModule;
 
my $module=AnsibleModule->new();
 
$module->fail_json({msg=>"fail_json"});