File Coverage

blib/lib/Mojolicious/Plugin/TweetButton.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	6	6	100.0
condition	12	12	100.0
subroutine	6	6	100.0
pod	1	1	100.0
total	52	52	100.0

package Mojolicious::Plugin::TweetButton;

use strict;
use warnings;

use base 'Mojolicious::Plugin';

use Mojo::ByteStream;

our $VERSION = '0.0005';

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

    $conf->{count} = 'vertical' if !$conf->{count};

    $app->renderer->add_helper(
        tweet_button => sub {
            my $c    = shift;
            my %args = @_;

            $args{url}     ||= $conf->{url};
            $args{via}     ||= $conf->{via};
            $args{related} ||= $conf->{related};
            $args{lang}    ||= $conf->{lang};
            $args{count}     = $conf->{count} if !$args{count};

            my $attrs = '';
            foreach my $name (qw/url text count via related lang/) {
                $attrs .= qq/ data-$name="$args{$name}"/ if $args{$name};
            }

            my $tag = <<"EOF";
Tweet
EOF
            return Mojo::ByteStream->new($tag);
        }
    );
}

1;

__END__