File Coverage

blib/lib/Env/Heroku/Cloudinary.pm

Criterion	Covered	Total	%
statement	13	16	81.2
branch	1	4	25.0
condition	1	3	33.3
subroutine	4	4	100.0
pod			n/a
total	19	27	70.3

use strict;
package Env::Heroku::Cloudinary;
our $AUTHORITY = 'cpan:PNU';
# ABSTRACT: env for cloudinary

use warnings;
use URI;

our $VERSION = '0.003'; # VERSION

sub import {
    my ($self) = @_;

    my $cloudinaryurl = $ENV{CLOUDINARY_URL};
    if ( $cloudinaryurl and $cloudinaryurl =~ s/^cloudinary:// ) {
        my $url = URI->new( $cloudinaryurl, 'http' );
        $ENV{CLOUDINARY_CLOUD} = $url->host;
        ($ENV{CLOUDINARY_API_KEY},$ENV{CLOUDINARY_API_SECRET}) = split ':', $url->userinfo
            if $url->userinfo;
    }

    return 1;
}

1;

__END__