1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
package Child::Util;
use strict;
use warnings;
use Carp qw/croak/;
use Exporter 'import';
our @EXPORT = qw/add_accessors add_abstract/;
sub _abstract {
my $class = shift;
croak "$class does not implement this function."
}
sub add_abstract {
my $caller = caller;
no strict 'refs';
*{"$caller\::$_"} = \&_abstract for @_;
}
sub add_accessors {
my $class = caller;
_add_accessor( $class, $_ ) for @_;
}
sub _add_accessor {
my ( $class, $reader ) = @_;
my $prop = "_$reader";
my $psub = sub {
my $self = shift;
($self->{ $prop }) = @_ if @_;
return $self->{ $prop };
};
my $rsub = sub {
my $self = shift;
return $self->$prop();
};
no strict 'refs';
*{"$class\::$reader"} = $rsub;
*{"$class\::$prop"} = $psub;
}
1;
=head1 NAME
Child::Util - Utility functions for L>Child>
=head1 HISTORY
Most of this was part of L<Parrallel::Runner> intended for use in the L<Fennec>
project. Fennec is being broken into multiple parts, this is one such part.
=head1 FENNEC PROJECT
This module is part of the Fennec project. See L<Fennec> for more details.
Fennec is a project to develop an extendable and powerful testing framework.
Together the tools that make up the Fennec framework provide a potent testing
environment.
The tools provided by Fennec are also useful on their own. Sometimes a tool
created for Fennec is useful outside the greater framework. Such tools are
turned into their own projects. This is one such project.
=over 2
=item L<Fennec> - The core framework
The primary Fennec project that ties them all together.
=back
=head1 AUTHORS
Chad Granum L<exodist7@gmail.com>
=head1 COPYRIGHT
Copyright (C) 2010 Chad Granum
Child is free software; Standard perl licence.
Child is distributed in the hope that it will be useful, but WITHOUT
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the license for more details.
|
