File Coverage

blib/lib/NewRelic/Agent.pm

Criterion	Covered	Total	%
statement	13	16	81.2
branch	1	2	50.0
condition	4	9	44.4
subroutine	3	3	100.0
pod			n/a
total	21	30	70.0

package NewRelic::Agent;
use strict;
use warnings;

our $VERSION = '0.0532';

require XSLoader;
XSLoader::load(__PACKAGE__, $VERSION);

sub new {
    my ($self, %args) = @_;

    my $license_key          = delete $args{license_key}
                            || $ENV{NEWRELIC_LICENSE_KEY}
                            || '';
    my $app_name             = delete $args{app_name}
                            || $ENV{NEWRELIC_APP_NAME}
                            || 'AppName';
    my $app_language         = delete $args{app_language}
                            || $ENV{NEWRELIC_APP_LANGUAGE}
                            || 'perl';
    my $app_language_version = delete $args{app_language_version}
                            || $ENV{NEWRELIC_APP_LANGUAGE_VERSION}
                            || $];

    if (%args) {
        require Carp;
        Carp::croak("Invalid arguments: @{[ keys %args ]}");
    }

    return $self->_new($license_key, $app_name, $app_language, $app_language_version);
}

1;

# ABSTRACT: Perl Agent for NewRelic APM

__END__