btrott

diff --git a/lib/WWW/TypePad.pm b/lib/WWW/TypePad.pm
index a9ca6a3..4433d7c 100644
--- a/lib/WWW/TypePad.pm
+++ b/lib/WWW/TypePad.pm
@@ -5,6 +5,9 @@ use 5.008_001;
 our $VERSION = '0.009_01';
 
 use Any::Moose;
+use Carp qw( croak );
+use HTTP::Request::Common;

btrott

#!/usr/bin/perl -w
use strict;

use Plack::Builder;
use Plack::Request;
use Plack::Response;
use Text::MicroTemplate qw( render_mt );
use WWW::TypePad;

# These should be set to the Consumer Key and Consumer Secret

btrott

sub get_best_avatar_uri {
    my $class = shift;
    my( $links ) = @_;
    return unless $links && @$links;
    
    # Look first for a 50px width avatar...
    my $link = first { $_->{rel} eq 'avatar' && $_->{width} == 50 } @$links;

    # ... and if we can't find one, grab the largest available avatar,
    # which will by definition be less than 50px width, I think?