sugar84

#!/usr/bin/env perl
use Modern::Perl;

# launch: bin.pl <service_name> [memory_limit in %]

my $service_name = shift @ARGV;
my $mem_limit = @ARGV ? shift @ARGV : 20;

my $pid = get_pid($service_name);
my $mem_size = get_memory($pid);

sugar84

#!/usr/bin/env perl
use common::sense;

use AnyEvent;
use AnyEvent::XMPP::Client;
 
my $cv  = AE::cv;

my $client = AnyEvent::XMPP::Client->new(debug => 1);
$client->add_account('[email protected]', 'password');

sugar84

#!/usr/bin/env perl
use Modern::Perl;

use Test::More;
use Test::Fatal qw/dies_ok/;

use Try::Tiny;

dies_ok { wrong_try_catch()  } "First is dies";
dies_ok { wrong_try_catch2() } "Second should die too";

sugar84

#!/usr/bin/env perl
use Modern::Perl;

use Benchmark qw/cmpthese/;

my (@arr1, $arr_ref1, %hash1, $hash_ref1);

say "Read access: ";
my $x;
cmpthese(-2, {

sugar84

#!/usr/bin/perl
use strict;
use warnings;

use FindBin qw/$Bin/;
use lib "$Bin/../..";

use POSIX qw/setsid/;
use File::Basename qw/basename/;
use AnyEvent;