File Coverage

blib/lib/HTML/SocialMeta/Base.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	26	26	100.0

package HTML::SocialMeta::Base;
use Moo;
use Carp;

our $VERSION = '0.74004';

use MooX::LazierAttributes qw/rw ro lzy dhash lzy_str coe/;
use MooX::ValidateSubs;
use Coerce::Types::Standard qw/Str HashRef HTML StrSR/;

attributes(
    [qw(card_type card type name url)] => [ rw, HTML->by('encode_entity'), {lzy, coe} ],
    [qw(site fb_app_id site_name title description image creator operatingSystem app_country
    app_name app_id app_url player player_height player_width)] => [HTML->by('encode_entity'), {coe}],
    'image_alt' => [HTML->by('encode_entity'), {coe, lzy_str}],
    [qw(card_options build_fields)] => [HashRef,{dhash}],
    [qw(meta_attribute meta_namespace)] => [ro],
);

validate_subs(
    create => { params => [ [ Str, 'card_type' ] ] },
    build_meta_tags    => { params => [ [Str] ] },
    required_fields    => { params => [ [Str] ] },
    meta_option        => { params => [ [Str] ] },
    _generate_meta_tag => { params => [ [Str] ] },
    _build_field       => { params => [ [HashRef] ] },
    _convert_field     => { params => [ [StrSR->by(['_',':'])] ] },
    _no_card_type      => { params => [ [Str] ] }
);

sub create {
    if ( my $option = $_[0]->card_options->{ $_[1] } ) {
        return $_[0]->$option;
    }
    return $_[0]->_no_card_type( $_[1] );
}

sub build_meta_tags {
    my @meta_tags;
    $_[0]->meta_attribute eq q{itemprop} and push @meta_tags, $_[0]->item_type;
    foreach ( $_[0]->required_fields( $_[1] ) ) {
        $_[0]->_validate_field_value($_);
        push @meta_tags, $_[0]->_generate_meta_tag($_);
    }
    return join "\n", @meta_tags;
}

sub required_fields {
    return
      defined $_[0]->build_fields->{ $_[1] }
      ? @{ $_[0]->build_fields->{ $_[1] } }
      : ();
}

sub meta_option {
    my $option = $_[0]->card_options->{$_[1]};
    $option =~ s{^create_}{}xms;
    return $option;
}

sub _validate_field_value {
    my $lame = $_[1]; # instantiate a default
    defined $_[0]->$lame and return 1;
    croak sprintf q{you have not set this field value %s}, $lame;
}

sub _generate_meta_tag {

    # fields that don't start with app, player, or image generate a single tag
    $_[1] !~ m{^app|player|fb|image}xms
      and return $_[0]->_build_field( { field => $_[1] } );
    return
      map { $_[0]->_build_field( { field => $_[1], %{$_} } ) }
      @{ $_[0]->_convert_field( $_[1] ) };
}

sub _build_field {
    return sprintf q{}, $_[0]->meta_attribute,
      ( $_[1]->{ignore_meta_namespace} || $_[0]->meta_namespace ),
      ( defined $_[1]->{field_type} ? $_[1]->{field_type} : $_[1]->{field} ),
      $_[0]->{$_[1]->{field}};
}

sub _convert_field {
    return $_[0]->provider_convert( $_[1] );
}

sub _no_card_type {
    return croak sprintf
q{this card type does not exist - %s try one of these summary, featured_image, app, player},
      $_[1];
}

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

1;

__END__