/usr/share/perl5/Child/Util.pm is in libchild-perl 0.013-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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<Parallel::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.
|