File Coverage

blib/lib/HTML/SocialMeta/OpenGraph.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::OpenGraph;
use Moo;
use Carp;

our $VERSION = '0.74004';

extends 'HTML::SocialMeta::Base';

use MooX::LazierAttributes qw/rw lzy/;
use MooX::ValidateSubs;
use Types::Standard qw/Str/;

attributes(
    '+meta_attribute' => ['property'],
    '+meta_namespace' => ['og'],
    fb_namespace      => [ rw, Str, {lzy} ],
    '+card_options'   => [
        sub {
            {
                summary        => q(create_thumbnail),
                featured_image => q(create_article),
                player         => q(create_video),
                app            => q(create_product),
            };
        }
    ],
    '+build_fields' => [
        sub {
            return {
                thumbnail =>
                  [qw(type title description url image image_alt site_name fb_app_id)],
                article =>
                  [qw(type title description url image image_alt site_name fb_app_id)],
                video => [
                    qw(type site_name url title image image_alt description player player_width player_height fb_app_id)
                ],
                product => [qw(type title image image_alt description url fb_app_id)]
            };
        }
    ],
);

validate_subs(
    create_thumbnail => {
        params => [ [ Str, sub { 'thumbnail' } ] ],
    },
    create_article => {
        params => [ [ Str, sub { 'article' } ] ],
    },
    create_video => {
        params => [ [ Str, sub { 'video' } ] ],
    },
    create_product => {
        params => [ [ Str, sub { 'product' } ] ],
    },
    provider_convert => {
        params => [ [Str] ],
    },
);

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

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

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

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

sub provider_convert {
    if ( $_[1] =~ s{^fb:}{}xms ) {
        $_[1] =~ s{:}{_}xms;
        return [ { field_type => $_[1], ignore_meta_namespace => 'fb' } ];
    }
    $_[1] =~ s{^player}{video}xms;
    $_[1] =~ m{^video$}xms and return [
        { field_type => $_[1] . ':url' },
        { field_type => $_[1] . ':secure_url' }
    ];
    return [ { field_type => $_[1] } ];
}

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

1;

__END__