File Coverage

blib/lib/Mojolicious/Plugin/PgURLHelper.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	16	16	100.0
condition	6	6	100.0
subroutine	4	4	100.0
pod	1	1	100.0
total	54	54	100.0

# vim:set sw=4 ts=4 sts=4 ft=perl expandtab:
package Mojolicious::Plugin::PgURLHelper;
use Mojo::Base 'Mojolicious::Plugin';
use Mojo::URL;

our $VERSION = '0.03';

sub register {
    my ($self, $app) = @_;

    $app->helper(pg_url => \&_pg_url);
}

sub _pg_url {
    my $c = shift;
    my $s = shift;

    ## Check that we have all what we need
    my $croak = 0;
    if (!defined($s->{host})) {
        $c->app->log->error('Missing host parameter.');
        $croak++;
    }
    if (!defined($s->{database})) {
        $c->app->log->error('Missing database parameter.');
        $croak++;
    }
    if ($s->{user} && index($s->{user}, ':') != -1) {
        $c->app->log->error('You can\'t have a colon in the user name.');
        $croak++;
    }
    return undef if ($croak);

    ## Let's go
    my $addr  = Mojo::URL->new
                    ->scheme('postgresql')
                    ->host($s->{host})
                    ->path('/'.$s->{database});
    $addr->port($s->{port}) if defined $s->{port};
    my $user = (defined $s->{user}) ? $s->{user} : '';
    my $pwd  = (defined $s->{pwd}) ? $s->{pwd} : '';
    $addr->userinfo($user.':'.$pwd) if ($user && $pwd);
    return $addr->to_unsafe_string;
}

1;
__END__