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/\.$//; $_ }

dotandimet

#!/usr/bin/env perl

use strict;
use warnings;

use Mojo::JSON;

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

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 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/perl

use warnings;
use strict;

use CGI::Fast;
use Capture::Tiny qw(capture);
use IPC::Run3 qw(run3);

my $cmd = 'date';

dotandimet

package Unity::DBI;
use base qw/DBIx::Class::CDBICompat/;

package Unity::Cluster;
use base 'Unity::DBI'; 

 __PACKAGE__->table('u_clusters');
 __PACKAGE__->table_alias('u_clusters');
 __PACKAGE__->sequence('obj_id');
 __PACKAGE__->columns(Primary => qw/id/);

dotandimet

#!/usr/bin/env perl

use JSON;
use Mojo::JSON;

use Test::More tests => 6;

my $j  = JSON->new;
my $mj = Mojo::JSON->new;

dotandimet

$('.concord-text')
  .each(function(t){ 
     if ($(this).text().match(/[אבגדהוזחטיכלמנסעפצקרשת]/)) { 
          $(this).attr('dir', 'rtl'); 
     };
   });

dotandimet

use File::Slurp;
use Tie::LevelDB;

my $file_name = shift; # give the script an image file argument - preferably a PNG.

my $db = new Tie::LevelDB::DB("db/");
my $buffer;

read_file( $file_name, binmode => ':raw', buf_ref => \$buffer );

dotandimet

# can you spot the bug below?

sub load_and_go {
  my $self = shift;
  $self->render_later();
  my $subs = $self->backend->feeds->find({xmlUrl => $self->param('src')})->all;
  $self->process_feeds(
    $subs,
    sub {
      $self->redirect_to(