package Web::oEmbed; use strict; use 5.8.1; our $VERSION = '0.04'; use Any::Moose; has 'format' => (is => 'rw', default => 'json'); has 'discovery' => (is => 'rw'); has 'providers' => (is => 'rw', isa => 'ArrayRef', default => sub { [] }); has 'agent' => (is => 'rw', isa => 'LWP::UserAgent', default => sub { require LWP::UserAgent; LWP::UserAgent->new( agent => __PACKAGE__ . "/" . $VERSION ); }); use URI; use Web::oEmbed::Response; sub register_provider { my($self, $provider) = @_; $provider->{regexp} = $self->_compile_url($provider->{url}); push @{$self->providers}, $provider; } sub _compile_url { my($self, $url) = @_; my $res; my $uri = URI->new($url); $res = $uri->scheme . "://"; $res .= _run_regexp($uri->host, '[0-9a-zA-Z\-]+'); $res .= _run_regexp($uri->path, "[$URI::uric]+" ); $res; } sub _run_regexp { my($str, $replacement) = @_; $str =~ s/(?:(\*)|([^\*]+))/$1 ? $replacement : quotemeta($2)/eg; $str; } sub provider_for { my($self, $uri) = @_; for my $provider (@{$self->providers}) { if ($uri =~ m!^$provider->{regexp}!) { return $provider; } } return; } sub request_url { my($self, $uri, $opt) = @_; my $params = { url => $uri, format => $opt->{format} || $self->format, }; $params->{maxwidth} = $opt->{maxwidth} if exists $opt->{maxwidth}; $params->{maxheight} = $opt->{maxheight} if exists $opt->{maxheight}; my $provider = $self->provider_for($uri) or return; my $req_uri = URI->new( $provider->{api} ); if ($req_uri->path =~ /%7Bformat%7D/) { # yuck my $path = $req_uri->path; $path =~ s/%7Bformat%7D/$params->{format}/; $req_uri->path($path); delete $params->{format}; } $req_uri->query_form($params); $req_uri; } sub embed { my($self, $uri, $opt) = @_; my $url = $self->request_url($uri, $opt) or return; my $res = $self->agent->get($url); Web::oEmbed::Response->new_from_response($res, $uri); } 1; __END__ =encoding utf-8 =for stopwords oEmbed =head1 NAME Web::oEmbed - oEmbed consumer =head1 SYNOPSIS use Web::oEmbed; my $consumer = Web::oEmbed->new({ format => 'json' }); $consumer->register_provider({ url => 'http://**', api => '', }); my $response = eval { $consumer->embed("") }; if ($response) { $response->matched_uri; # '' $response->type; # 'photo' $response->title; # title of the photo $response->url; # JPEG URL $response->width; # JPEG width $response->height; # JPEG height $response->provider_name; # Flickr $response->provider_url; # print $response->render; # handy shortcut to generate tag } =head1 DESCRIPTION Web::oEmbed is a module that implements oEmbed consumer. =head1 METHODS =over 4 =item new $consumer = Web::oEmbed->new; $consumer = Web::oEmbed->new({ format => 'json' }); Creates a new Web::oEmbed instance. You can specify the default format that will be used when it's not specified in the C method. =item register_provider $consumer->register_provider({ name => 'Flickr', url => 'http://**', api => ', }); Registers a new provider site. C is optional while C and C are required. If you specify the mangled C parameter like '*://' it will die with an error. You can call this method multiple times to add multiple oEmbed providers. =item embed $response = $consumer->embed(""); $response = $consumer->embed( URI->new(""), { format => 'xml' } ); Given an URL it will try to find the correspondent provider based on their registered URL scheme, and then send the oEmbed request to the oEmbed provider endpoint and parse the response. The method returns an instance of Web::oEmbed::Response. Returns undef if there's no provider found for the URL. Throws an error if there's an error in JSON/XML parsing etc. (Note: I don't like this interface because there's no cleaner way to handle and diagnose errors. This might be changed.) C optional parameter specifies which C is sent to the provider as a prefered format parameter. When omitted, the default format parameter set in C is used. If it's not speciied in C either, the default will be C. B: When optional parameter C is set, the consumer will issue the HTTP request to the original URL to discover the oEmbed discovery tag described in the oEmbed spec chapter 4. If the oEmbed discovery tag is found in the HTML, it will then issue the oEmbed request against the provider. =back =head1 METHODS in Web::oEmbed::Response =over 4 =item http_response $res = $response->http_response; Returns an underlying HTTP::Response object. =item matched_uri $uri = $response->matched_uri; Returns the matched URL given to the original C method. =item type =item version =item title =item author_name =item author_url =item provider_name =item provider_url =item cache_age =item thumbnail_url =item thumbnail_width =item thumbnail_height Returns the value of response parameters. =item url, width, height Returns the value of response parameters if response type is I. =item html, width, height Returns the value of response parameters if response type is I