rsimoes

use IO::Socket::IP;
use Socket qw(SOCK_STREAM)
use Net::GnuTLS::Client;
use Net::GnuTLS::Credentials;

# Connect to server:

my $socket = IO::Socket::IP->new(
    PeerHost => "metacpan.org",
    PeerPort => "https",

rsimoes

#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dump;
use Data::Alias "alias";
use Scalar::Util qw(weaken isweak);

my $foo = ["a".."z"];
alias my @bar = @$foo;

rsimoes

#!/usr/bin/env perl

use v5.14;
use warnings;
use AnyEvent::HTTP "http_get";
use Variable::Magic qw(wizard cast dispell);
use Data::Alias "alias";
use PadWalker "peek_my";

sub get_page {

rsimoes

use Set::Builder qw(Set Var for_all);

# set constructor, roster style:
my $set = Set { 0..9 };

# element variable constructor:
my ($x, $y) = (Var) x 2;

# subset consisting of the numbers 0 and 1
my $subset1 = Set { $x ~~ $set | $x ~~ Set { 0..1 } };

rsimoes

package Foo;

use Moo::Role;
use MooX::ClassAttribute;

class_has 'foo' => (
    is => 'ro',
    isa => sub { $_[0] == 1 or die 'not 1' }
);

rsimoes

package My::Types;

use strict;
use warnings;
use Type::Utils;
use Type::Library -base,
                  -declare => 'Percentage';
use Types::Standard qw(Num);
use Math::BigFloat;