ynonp

package AbstractZombie;

sub eat_brain { ... }

package main;

AbstractZombie::eat_brain;

ynonp

use v5.10;
use threads;
use Try::Tiny;

my $t = threads->create(sub { 
    my $error = 0;
    try {
      a();
    } catch {
      $error = $_;

ynonp

use v5.14;

use MooseX::Declare;

role EvilMonster {
    requires 'eat_brains';
    before eat_brains( Num $enemies ) { }
}

ynonp

package MyApp;
use Moose;

with 'MooseX::Log::Log4perl';

sub go {
    my $self = shift;

    $self->log->debug('Starting method go');
    $self->log->info('Go go go');

ynonp

use Spreadsheet::ParseExcel;
use strict;
use warnings;
use Data::Printer;

my $parser = Spreadsheet::ParseExcel->new;
my $workbook = $parser->parse( 'demo1.xls' ) or die $parser->error;

p $workbook;

ynonp

use v5.14;
use Spreadsheet::ParseExcel;
use strict;
use warnings;
use Data::Printer;

my $parser = Spreadsheet::ParseExcel->new;
my $workbook = $parser->parse( 'demo1.xls' ) or die $parser->error;

my $ws = $workbook->worksheet(0);

ynonp

use v5.14;
use Spreadsheet::WriteExcel;

# Create the work book
my $workbook = Spreadsheet::WriteExcel->new('writer1.xls');

my $ws = $workbook->add_worksheet();

$ws->write('A1', 'Hello World');

ynonp

use v5.14;
use Spreadsheet::WriteExcel;

# Create the work book
my $workbook = Spreadsheet::WriteExcel->new('writer1.xls');

my $ws = $workbook->add_worksheet();

for my $row ( 1..10 ) {
    for my $col ( 1..10 ) {

ynonp

use v5.14;
use Spreadsheet::WriteExcel;

# Create the work book
my $workbook = Spreadsheet::WriteExcel->new('writer1.xls');

my $ws  = $workbook->add_worksheet();

my @data = qw/red blue green white cyan magenta black/;

ynonp

use v5.14;
use Data::Dumper;

my @letters = ('a'..'f');
my @numbers = (0..7);

my %contacts = ( Mike => 7, Jim => 5 );

my @data = (\@letters, \@numbers, \%contacts);
print Dumper(\@data);