This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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? |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
my $syntaxer = Snowflake->new( __FILE__, 'perl' ); | |
print $syntaxer->colorize; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
GET /users/btrott.json | |
Host: api.typepad.com |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl -w | |
use strict; | |
use IO::Prompt; | |
use Try::Tiny; | |
use WWW::TypePad; | |
use WWW::TypePad::CmdLine; | |
my $tp = WWW::TypePad::CmdLine->initialize( requires_auth => 1 ); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<ul id="blog-widget"></ul> | |
<script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jquery/1.4.2/jquery.min.js"></script> | |
<script type="text/javascript"> | |
var blogId = '6a00d83455876069e200d83455876369e2'; | |
$( '#blog-widget' ).ready( function() { | |
$.getJSON( | |
'http://api.typepad.com/blogs/' + blogId + '/post-assets/@published/@recent.js?callback=?', | |
{ 'max-results': 5 }, | |
function( data ) { | |
var ul = $( '#blog-widget' ); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl -w | |
use strict; | |
use IO::Prompt; | |
use WWW::TypePad::CmdLine; | |
my $tp = WWW::TypePad::CmdLine->initialize( requires_auth => 1 ); | |
# Fetch the list of the authenticated user's blogs, then put up a prompt | |
# asking the user to choose a blog. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
# Simple demonstration of Captcha::reCAPTCHA, | |
# using Plack and other simple & modern tools | |
# (port of examples/captcha.pl to Plack) | |
use strict; | |
use warnings; | |
use Captcha::reCAPTCHA; | |
use Data::Section::Simple qw( get_data_section ); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<!DOCTYPE html> | |
<html> | |
<head> | |
<meta charset="utf-8"> | |
<title>Activity widget</title> | |
<style type="text/css"> | |
body { font-family: Helvetica; font-size: 12px; } | |
#note-list li { list-style: none; margin-bottom: 5px; padding-bottom: 5px; border-bottom: 1px dotted #999; } | |
#note-list li span.avatar { padding-right: 10px; } |
OlderNewer