File Coverage

blib/lib/HTML/SocialMeta/OpenGraph.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	4	4	100.0
condition			n/a
subroutine	7	7	100.0
pod	4	5	80.0
total	40	41	97.5

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

our $VERSION = '0.6';

extends 'HTML::SocialMeta::Base';

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

has 'fb_namespace' => ( is => 'rw', lazy => 1, default => q{} );

has '+card_options' => (
    default => sub {
        return {
            summary        => q(create_thumbnail),
            featured_image => q(create_article),
            player         => q(create_video),
            app            => q(create_product),
        };
    },
);

has '+build_fields' => (
    default => sub {
        return {
            thumbnail =>
              [qw(type title description url image site_name fb_app_id)],
            article =>
              [qw(type title description url image site_name fb_app_id)],
            video => [
                qw(type site_name url title image description player player_width player_height fb_app_id)
            ],
            product => [qw(type title image description url fb_app_id)]
        };
    },
);

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

    $self->type('thumbnail');

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

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

    $self->type('article');

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

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

    $self->type('video');

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

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

    $self->type('product');

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

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

    if ( $field =~ s{^fb:}{}xms ) {
        $field =~ s{:}{_}xms;

        return [ { field_type => $field, ignore_meta_namespace => 'fb' } ];
    }

    $field =~ s{^player}{video}xms;

    return [
        { field_type => $field . ':url' },
        { field_type => $field . ':secure_url' }
      ]
      if $field =~ m{^video$}xms;

    return [ { field_type => $field } ];
}

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

1;

__END__