File Coverage

blib/lib/MojoMojo/Formatter/Amazon.pm

Criterion	Covered	Total	%
statement	13	40	32.5
branch	3	16	18.7
condition	0	3	0.0
subroutine	4	10	40.0
pod	9	9	100.0
total	29	78	37.1

package MojoMojo::Formatter::Amazon;

eval "use Net::Amazon";
my $eval_res=$@;

=head2 module_loaded

Return true if the module is loaded.

=cut

sub module_loaded { $eval_res ? 0 : 1 }


our $VERSION='0.01';

=head1 NAME

MojoMojo::Formatter::Amazon - Include Amazon objects on your page.

=head1 DESCRIPTION

This is an url formatter. it takes urls containing amazon and
/-/ or /ASIN/ and make a pretty formatted link to that object
in the amazon web store.

It automatically handles books/movies/dvds and formats them as
apropriate. You can also pass 'small' as a parameter after the
url, and it will make a thumb link instead of a blurb.

=head1 METHODS

=head2 format_content_order

Format order can be 1-99. The Amazon formatter runs on 5.

=cut

sub format_content_order { 5 }

=head2 format_content

calls the formatter. Takes a ref to the content as well as the
context object.

=cut

sub format_content {
    my ($class,$content,$c)=@_;
    return unless $class->module_loaded;
    my @lines=split /\n/,$$content;
    my $pod;$$content="";
    foreach my $line (@lines) {
      if ($line =~ m/(\{\{?:http:\/\/(?:www\.){0,1}amazon\.com(?:\/.*){0,1}(?:\/dp\/|\/gp\/product\/))(.*?)(?:\/.*|$)\}\}/) {
          my $item=$class->get($1,$c->config->{amazon_id});
          unless (ref($item)) {
              $$content.=$line."\n";
              next;
          }
          if ($2) {
            next unless $class->can($2);
            $$content.=$class->$2($item);
          } else {
            $$content.=$class->blurb($item);
          }
      } else {
        $$content .=$line."\n";
      }
    }

}

=head2 get <asin>

Connects to amazon and retrieves a L<Net::Amazon> object
based on the supplied ASIN number.

=cut

sub get {
  my ($class,$id,$amazon_id,$secret_key)=@_;
  #FIXME: devel token should be set in formatter config.
  my $amazon=Net::Amazon->new(token=>$amazon_id,secret_key=>$secret_key);
  my $response=$amazon->search(asin=>$id);
  return "Unable to connect to amazon." unless $response->is_success;
  ($property)=$response->properties;
  return "No property object" unless $property;
  return $property;
}

=head2 small <property>

Renders a small version of the formatter.

=cut

sub small {
  my ($class,$property)=@_;
  return "!".$property->ImageUrlMedium.
  '!:http://www.amazon.com/exec/obidos/ASIN/'.$property->Asin."/feed-20\n";
}

=head2 blurb <property>

renders a full width blurb of the product, suitable for reviews and
such.

=cut

sub blurb {
  my ($class,$property)=@_;
  my $method=ref $property;
  $method =~ s/.*:://;
  return "<div class=\"amazon\">!<".$property->ImageUrlSmall.
  '!:http://www.amazon.com/exec/obidos/ASIN/'.$property->Asin."/feed-20\n\n".
  "h1. ".$property->ProductName."\n\n".
  '"buy at amazon for '.$property->OurPrice.'":'.
  'http://www.amazon.com/exec/obidos/ASIN/'.$property->Asin."/feed-20\n\n".
  ($method && ($class->can($method) ? $class->$method($property) :"<br/>\n\n")).
  "</div>";
}

=head2 DVD <property>

Product information suitable for DVD movies.

=cut

sub DVD {
  my ($class,$property) = @_;
  return " -- ??".join(',',$property->directors).'?? ('.$property->year .")\n\n";
}

=head2 Book <property>

Product information suitable for books.

=cut

sub Book {
  my ($class,$property) = @_;
  return " -- ??".join(',',$property->authors).'?? ('.$property->year .")\n\n";
}

=head2 Music <property>

Product information suitable for music CDs.

=cut

sub Music {
  my ($class,$property) = @_;
  return " -- ??".join(',',$property->artists).'?? ('.$property->year .")\n\n";
}

=head1 SEE ALSO

L<MojoMojo>, L<Module::Pluggable::Ordered>, L<Net::Amazon>.

=head1 AUTHORS

Marcus Ramberg <[e-mail]

=head1 LICENSE

This library is free software. You can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

1;