our
$VERSION
=
'0.52'
;
has
runtime
=> ();
has
compiler
=> ();
has
bridge
=> ();
has
library
=> ();
has
testml
=> ();
sub
run {
my
(
$self
) =
@_
;
$self
->set_default_classes;
$self
->runtime->new(
compiler
=>
$self
->compiler,
bridge
=>
$self
->bridge,
library
=>
$self
->library,
testml
=>
$self
->testml,
)->run;
}
sub
set_default_classes {
my
(
$self
) =
@_
;
if
(not
$self
->runtime) {
$self
->{runtime} =
'TestML::Runtime::TAP'
;
}
if
(not
$self
->compiler) {
$self
->{compiler} =
'TestML::Compiler::Pegex'
;
}
if
(not
$self
->bridge) {
$self
->{bridge} =
'TestML::Bridge'
;
}
if
(not
$self
->library) {
$self
->{library} = [
'TestML::Library::Standard'
,
'TestML::Library::Debug'
,
];
}
}
1;