File Coverage

blib/lib/HTML/SocialMeta.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	8	8	100.0
pod	2	4	50.0
total	42	45	93.3

package HTML::SocialMeta;
use Moo;
use List::MoreUtils qw(uniq);

use HTML::SocialMeta::Twitter;
use HTML::SocialMeta::OpenGraph;

our $VERSION = '0.6';

has 'card_type' => ( is => 'rw', lazy => 1, default => q{} );
has [
    qw(card site site_name title description image url creator operatingSystem app_country app_name app_id app_url player player_height player_width fb_app_id)
  ] => (
    is      => 'ro',
    lazy    => 1,
    default => q{},
  );

has 'twitter' => (
    is      => 'ro',
    lazy    => 1,
    builder => 'build_twitter',
);

has 'opengraph' => (
    is      => 'ro',
    lazy    => 1,
    builder => 'build_opengraph',
);

sub create {
    my ( $self, $card_type ) = @_;

    $card_type ||= $self->card_type;

    $self->card_type($card_type);

    my @meta_tags =
      map { $self->$_->create( $self->card_type ) } qw/twitter opengraph/;

    return join "\n", @meta_tags;
}

sub required_fields {
    my ( $self, $card_type ) = @_;

    my @meta_tags =
      map { $self->$_->required_fields( $self->$_->meta_option($card_type) ) }
      qw/twitter opengraph/;

    my @required_fields = uniq(@meta_tags);

    return @required_fields;
}

sub build_twitter {
    my $self = shift;

    return HTML::SocialMeta::Twitter->new(
        card_type       => $self->card_type,
        site            => $self->site,
        title           => $self->title,
        description     => $self->description,
        image           => $self->image,
        url             => $self->url,
        creator         => $self->creator,
        operatingSystem => $self->operatingSystem,
        app_country     => $self->app_country,
        app_name        => $self->app_name,
        app_id          => $self->app_id,
        app_url         => $self->app_url,
        player          => $self->player,
        player_width    => $self->player_width,
        player_height   => $self->player_height,
    );
}

sub build_opengraph {
    my $self = shift;

    my $url = $self->app_url ? $self->app_url : $self->url;

    return HTML::SocialMeta::OpenGraph->new(
        card_type       => $self->card_type,
        site_name       => $self->site_name,
        title           => $self->title,
        description     => $self->description,
        image           => $self->image,
        url             => $url,
        operatingSystem => $self->operatingSystem,
        player          => $self->player,
        player_width    => $self->player_width,
        player_height   => $self->player_height,
        fb_app_id       => $self->fb_app_id,
    );
}

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

1;

__END__