File Coverage

blib/lib/Filesys/POSIX/Module.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	19	20	95.0

# Copyright (c) 2014, cPanel, Inc.
# All rights reserved.
# http://cpanel.net/
#
# This is free software; you can redistribute it and/or modify it under the same
# terms as Perl itself.  See the LICENSE file for further details.

package Filesys::POSIX::Module;

use strict;
use warnings;

=head1 NAME

Filesys::POSIX::Module - Export methods to Filesys::POSIX namespace

=head1 SYNOPSIS

    package Foo;

    use Filesys::POSIX::Module;

    my @METHODS = qw(foo bar baz);

    Filesys::POSIX::Module->export_methods(__PACKAGE__, @methods);

=head1 DESCRIPTION

C is used to extend C> by allowing
callers to export methods from their own packages into C>.

=cut

sub export_methods {
    my ( $class, $from, @methods ) = @_;

    no strict 'refs';

    foreach my $method (@methods) {
        *{"Filesys::POSIX::$method"} = *{"$from\::$method"};
    }

    return;
}

1;

__END__