dotandimet

#!/usr/bin/env perl

use warnings;
use strict;

# Mojo::Loader executes arbitray code - via vti
# perl -MMojo::Loader -e 'Mojo::Loader->load(qq{Mojo::Loader;print "nice feature!"})'
# http://twitter.com/#!/vtivti/status/44408695613952000

use Test::More tests => 2;

dotandimet

#!/usr/bin/env perl

use warnings;
use strict;
use Test::More;
use Test::Mojo;
use Mojolicious::Lite;

post '/foo' => sub {
    my $self = shift;

dotandimet

#!/usr/bin/env perl

use strict;
use warnings;

use Mojo::JSON;

my $str = qq{[
{
"text" : "

dotandimet

use ojo;
my $s = oO( q{http://} 
            . join(q{:}, @ARGV) 
            .  q{@api.twitter.com/1/statuses/friends_timeline.json}
           )->json;

foreach (@$s) { 
    print Oo($_->{user}{screen_name}, q{: }, $_->{text});
    my @links =
      map  { $_ =~ s/\.$//; $_ }