File Coverage

blib/lib/HTML/SocialMeta/Twitter.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

package HTML::SocialMeta::Twitter;

use Moo;
use Carp;

extends 'HTML::SocialMeta::Base';

our $VERSION = '0.74004';

use MooX::LazierAttributes;
use MooX::ValidateSubs;
use Types::Standard qw/Str Object ArrayRef HashRef/;

attributes(
    '+meta_attribute' => ['name'],
    '+meta_namespace' => ['twitter'],
    '+card_options'   => [
        sub {
            {
                summary        => q(create_summary),
                featured_image => q(create_summary_large_image),
                app            => q(create_app),
                player         => q(create_player),
            };
        }
    ],
    '+build_fields' => [
        sub {
            {
                summary             => [qw(card site title description image image_alt)],
                summary_large_image => [qw(card site title description image image_alt)],
                app                 => [
                    qw(card site description app_country app_name app_id app_url)
                ],
                player => [
                    qw(card site title description image image_alt player player_width player_height)
                ],
            };
        }
    ],
);

validate_subs(
    create_summary => {
        params => [ [ Str, sub { 'summary' } ] ],
    },
    create_summary_large_image => {
        params => [ [ Str, sub { 'summary_large_image' } ] ],
    },
    create_app => {
        params => [ [ Str, sub { 'app' } ] ],
    },
    create_player => {
        params => [ [ Str, sub { 'player' } ] ],
    },
    provider_convert => {
        params => [ [Str] ],
    },
);

sub create_summary {
    return $_[0]->build_meta_tags( $_[0]->card( $_[1] ) );
}

sub create_summary_large_image {
    return $_[0]->build_meta_tags( $_[0]->card( $_[1] ) );
}

sub create_app {
    return $_[0]->build_meta_tags( $_[0]->card( $_[1] ) );
}

sub create_player {
    return $_[0]->build_meta_tags( $_[0]->card( $_[1] ) );
}

sub provider_convert {
    $_[1] !~ m{^app}xms || $_[1] =~ m&country$&xms
      and return [ { field_type => $_[1] } ];
    $_[0]->operatingSystem eq q#ANDROID#
      and return [ { field_type => $_[1] . ':googleplay' } ];
    $_[0]->operatingSystem eq q~IOS~
      and return [
        { field_type => $_[1] . ':iphone' },
        { field_type => $_[1] . ':ipad' }
      ];
    return croak 'We currently do not support this APP type';
}

#
# The End
#
__PACKAGE__->meta->make_immutable;

1;

__END__