File Coverage

blib/lib/Devel/KYTProf/Profiler/AWS/CLIWrapper.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	21	22	95.4

package Devel::KYTProf::Profiler::AWS::CLIWrapper;
use strict;
use warnings;
use utf8;

use AWS::CLIWrapper;

our $VERSION = "0.01";

sub apply {
    Devel::KYTProf->add_prof(
        'AWS::CLIWrapper',
        '_execute',
        sub {
            my ($orig, $self, $service, $operation, @args) = @_;

            return [
                '%s %s',
                ['service', 'operation'],
                {
                    service   => $service,
                    operation => $operation,
                },
            ];
        },
    );
}

1;
__END__