File Coverage

blib/lib/Config/MethodProxy.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	30	30	100.0

package Config::MethodProxy;

$Config::MethodProxy::VERSION = '0.03';

=head1 NAME

Config::MethodProxy - A backwards compatibility shim for Data::MethodProxy.

=head1 DESCRIPTION

This module's distribution has been renamed to C and this
module itself has been turned into a shell of a shim over L.

Use L directly, not this module.

This module will be removed once a reasonable amount of time has passed and
any reverse dependencies have gone away or deamed ignorable.

=cut

use strict;
use warnings;

use Data::MethodProxy;
use Exporter qw( import );

our @EXPORT = qw(
    apply_method_proxies
);

our @EXPORT_OK = qw(
    apply_method_proxies
    is_method_proxy
    call_method_proxy
);

our %EXPORT_TAGS = ('all' => \@EXPORT_OK);

my $mproxy = Data::MethodProxy->new();

=head1 FUNCTIONS

Only the L function is exported by default.

=head2 apply_method_proxies

This calls L.

=cut

sub apply_method_proxies {
    my ($data) = @_;
    local $Carp::Internal{ (__PACKAGE__) } = 1;
    return $mproxy->render( $data );
}

=head2 is_method_proxy

This calls L.

=cut

sub is_method_proxy {
    my ($proxy) = @_;
    return $mproxy->is_valid( $proxy );
}

=head2 call_method_proxy

This calls L.

=cut

sub call_method_proxy {
    my ($proxy) = @_;
    local $Carp::Internal{ (__PACKAGE__) } = 1;
    return $mproxy->call( $proxy );
}

1;
__END__