File Coverage

blib/lib/Test/Run/Plugin/AlternateInterpreters.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 28 28 100.0


line stmt bran cond sub pod time code
1             package Test::Run::Plugin::AlternateInterpreters;
2              
3 2     2   1144887 use warnings;
  2         5  
  2         63  
4 2     2   9 use strict;
  2         4  
  2         36  
5              
6 2     2   43 use 5.008;
  2         9  
7              
8 2     2   461 use MRO::Compat;
  2         1187  
  2         29  
9              
10 2     2   488 use Moose;
  2         396871  
  2         14  
11              
12             =head1 NAME
13              
14             Test::Run::Plugin::AlternateInterpreters - Define different interpreters for different test scripts with Test::Run.
15              
16             =head1 VERSION
17              
18             Version 0.0124
19              
20             =cut
21              
22             our $VERSION = '0.0124';
23              
24             has 'alternate_interpreters' => (is => "rw", isa => "ArrayRef");
25              
26             extends('Test::Run::Base');
27              
28              
29             =head1 SYNOPSIS
30              
31             package MyTestRun;
32              
33             use base 'Test::Run::Plugin::AlternateInterpreters';
34             use base 'Test::Run::Obj';
35              
36             =head1 FUNCTIONS
37              
38             =cut
39              
40              
41             sub _init_strap
42             {
43 6     6   288596 my ($self, $args) = @_;
44 6         62 $self->next::method($args);
45              
46 6         1963 $self->Strap()->alternate_interpreters($self->alternate_interpreters());
47              
48 6         17 return;
49             }
50              
51             =head2 $self->private_straps_plugins()
52              
53             Returns the L<Test::Run::Straps> plugins required by this (L<Test::Run::Obj>)
54             plugin to be loaded along with it.
55              
56             =cut
57              
58             sub private_straps_plugins
59             {
60 2     2 1 191978 my $self = shift;
61              
62 2         13 return [ "Test::Run::Plugin::AlternateInterpreters::Straps::AltIntrPlugin" ];
63             }
64              
65             =head1 AUTHOR
66              
67             Shlomi Fish, C<< <shlomif at cpan.org> >>
68              
69             =head1 BUGS
70              
71             Please report any bugs or feature requests to
72             C<bug-test-run-plugin-alternateinterpreters at rt.cpan.org>, or through the web interface at
73             L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test::Run::Plugin::AlternateInterpreters>.
74             I will be notified, and then you'll automatically be notified of progress on
75             your bug as I make changes.
76              
77             =head1 SUPPORT
78              
79             You can find documentation for this module with the perldoc command.
80              
81             perldoc Test::Run::Plugin::AlternateInterpreters
82              
83             You can also look for information at:
84              
85             =over 4
86              
87             =item * AnnoCPAN: Annotated CPAN documentation
88              
89             L<http://annocpan.org/dist/Test::Run::Plugin::AlternateInterpreters>
90              
91             =item * CPAN Ratings
92              
93             L<http://cpanratings.perl.org/d/Test::Run::Plugin::AlternateInterpreters>
94              
95             =item * RT: CPAN's request tracker
96              
97             L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Test::Run::Plugin::AlternateInterpreters>
98              
99             =item * MetaCPAN
100              
101             L<https://metacpan.org/release/Test-Run-Plugin-AlternateInterpreters>
102              
103             =back
104              
105             =head1 ACKNOWLEDGEMENTS
106              
107             Curtis "Ovid" Poe ( L<https://metacpan.org/author/OVID> ) who gave the idea
108             of testing several tests from several interpreters in one go here:
109              
110             L<http://use.perl.org/~Ovid/journal/32092>
111              
112             =head1 SEE ALSO
113              
114             L<Test::Run>, L<Test::Run::CmdLine>, L<TAP::Parser>
115              
116             =head1 COPYRIGHT & LICENSE
117              
118             Copyright 2007 Shlomi Fish, all rights reserved.
119              
120             This program is released under the following license: MIT X11.
121              
122             =cut
123              
124             1; # End of Test::Run::Plugin::AlternateInterpreters