andrewsolomon

{
    package Brand;

    use Moo::Role;

    has name => ( is => 'ro' );
    sub description { "This is a nice ". shift->name }
}

{

andrewsolomon

#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dump 'pp';

sub foo {
    my %args = (
        @_
    );

andrewsolomon

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dump 'pp';
use feature 'say';

sub greet_friend {
    my $rh_friend = {
        age     => 5,

andrewsolomon

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dump 'pp';
use feature 'say';

sub greet_friend {
    my $rh_friend = {
        age     => 5,

andrewsolomon

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dump 'pp';
use feature 'say';

sub greet_friend {
    my %friend = (
        age     => 5,

andrewsolomon

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dump 'pp';
use feature 'say';

sub isbn_catalog {
    my $ra_catalog = shift;
   

andrewsolomon

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dump 'pp';
use feature 'say';


sub search_firstname {
    my ($match, $rah_phonebook) = @_;

andrewsolomon

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';
use Data::Dump 'pp';

my @arr = ([1 .. 6], [1,2,3] , ['a' .. 'h']);

sub by_arr_length {

andrewsolomon

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dump 'pp';
use feature 'say';

my $r_foo = sub { return "foo"; };
my $r_bar = sub { return {this => 1, that => 2}; };

andrewsolomon

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

sub modify_string_exclaim {
    my ($r_str) = @_;

    $$r_str .= '!';