File Coverage

blib/lib/HTML/SocialMeta/Twitter.pm

Criterion	Covered	Total	%
statement	22	23	95.6
branch	5	6	83.3
condition	3	3	100.0
subroutine	7	7	100.0
pod	4	5	80.0
total	41	44	93.1

package HTML::SocialMeta::Twitter;

use Moo;
use Carp;

extends 'HTML::SocialMeta::Base';

our $VERSION = '0.6';

# Provider Specific Fields
has 'meta_attribute' => ( is => 'ro', default => 'name' );
has 'meta_namespace' => ( is => 'ro', default => 'twitter' );

has '+card_options' => (
    default => sub {
        return {
            summary        => q(create_summary),
            featured_image => q(create_summary_large_image),
            app            => q(create_app),
            player         => q(create_player),
        };
    },
);

has '+build_fields' => (
    default => sub {
        return {
            summary             => [qw(card site title description image)],
            summary_large_image => [qw(card site title description image)],
            app =>
              [qw(card site description app_country app_name app_id app_url)],
            player => [
                qw(card site title description image player player_width player_height)
            ],
        };
    },
);

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

    $self->card('summary');

    return $self->build_meta_tags( $self->card );
}

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

    $self->card('summary_large_image');

    return $self->build_meta_tags( $self->card );
}

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

    $self->card('app');

    return $self->build_meta_tags( $self->card );
}

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

    $self->card('player');

    return $self->build_meta_tags( $self->card );
}

sub provider_convert {
    my ( $self, $field ) = @_;

    return [ { field_type => $field } ]
      if $field !~ m{^app}xms || $field =~ m{country$}xms;

    return [ { field_type => $field . ':googleplay' } ]
      if $self->operatingSystem eq q{ANDROID};

    return [
        { field_type => $field . ':iphone' },
        { field_type => $field . ':ipad' }
      ]
      if $self->operatingSystem eq q{IOS};

    return croak 'We currently do not support this APP type';
}

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

1;

__END__