Admin
dashboard
file manager
command
php exec
/
/
usr
/
share
/
doc
/
perl-Test-Harness
/
examples
/
harness-hook
/
lib
/
Harness
path:
go
upload
mkdir
name
type
size
perms
modified
actions
[parent directory]
Hook.pm
file
483 B
0644
2013-07-07 21:45:42
edit
delete
rename
editing: Hook.pm
package Harness::Hook; use strict; use warnings; use Carp; sub new { my ( $class, $harness ) = @_; my $self = bless {}, $class; $harness->callback( 'before_runtests', sub { my ($aggregate) = @_; warn "Before runtests\n"; } ); $harness->callback( 'after_runtests', sub { my ( $aggregate, $results ) = @_; warn "After runtests\n"; } ); return $self; } 1;
save
cancel