barefootcoder

my %KEYNAMES = ( ' ' => 'SPACE', "\n" => 'ENTER' );
func mini_menu ($choices, $prompt, HashRef :$help, HashRef :$dispatch, CodeRef :$premenu, :$delim = ',')
{
    my @choices = split(//, $choices);
    if ($help)
    {   
        push @choices, '?';
        $help->{'?'} = 'print help';
    }
    my $opts = join($delim, map { $KEYNAMES{$_} // $_ } @choices);

barefootcoder

use strict;
use warnings;

use Test::More;
#use Test::Exception;

use Method::Signatures;

barefootcoder

It's Moose vs MooseX::Declare in a speed showdown!!

This benchmark uses MooseX::App::Cmd to create some simple command-line apps, then uses Dumbbench to run them over and over to see which which one is fastest. Well, actually we already know that plain Moose is going to win. The real question is, is it faster enough to be significant in amongst all the overhead of starting up Perl, App::Cmd, loading Moose-guts, etc.

A few notes:

• In the results, "MXD" indicates a command that uses MooseX::Declare at every level (app, base command, and command subclass). "NoMXD" indicates a command that does not use MooseX::Declare at all.

• Since each run in our benchmark is spawning a shell, we're going to be comparing compile-time speed and run-time speed, but mostly compile-time (because our command doesn't do very much actual work). That's mainly what I wanted to get at with this benchmark.

barefootcoder

#! /usr/bin/env perl

# a standard prefix for modern Perl
use 5.014;                                              # implies both `use strict` and `use feature :5.14`
use autodie qw< :all >;
use warnings FATAL => 'all';


my $arrayref = [ qw< foo bar baz bmoogle > ];
my $hashref = { map { $_ => 1 } @$arrayref };

barefootcoder

#! /bin/bash

# To make this work, you will need Vroom 0.28 or later.  Slide notes are optional, but
# recommended.  Slide titles won't be used for this application.
#
# Earlier versions of Vroom will work if you add the dashes in front of the vroom commands
# (e.g. `vroom -compile` and `vroom -html`).  But the HTML is formatted a bit differently, so
# I make no promises that it will come out looking as good as the newest versions.

# You'll also need wkhtmltopdf.  If you don't have it, you can get it here:

barefootcoder

use 5.12.0;
use warnings;

use MooseX::Declare;
use Method::Signatures::Modifiers;


class My::Command extends MooseX::App::Cmd::Command
{
    # common stuff goes here

barefootcoder

sub whatever
{
    use Text::Balanced qw< extract_multiple extract_delimited >;

    my ($string) = @_;

    # this replaces all quoted strings with placeholders
    my @quoted_strings;
    $string = join('', map { ref $_ ? scalar((push @quoted_strings, $_), "{Q$#quoted_strings}") : $_ }
        extract_multiple($string,

barefootcoder

#! /usr/bin/env perl

use Modern::Perl;
use Method::Signatures;


func foo(\@bar, \@baz)
{
    return map { $bar[$_] + $baz[$_] } 0..$#bar;
}

barefootcoder

use MooseX::Declare;
use Method::Signatures::Modifiers;

class foo
{
    method glitch (:$foo)
    {   
        my %args;
    }
}

barefootcoder

package inner_pm;

BEGIN { warn "compiling inner pm" };
use B::Hooks::EndOfScope;


sub inner_pm_func
{
        warn "entering inner pm sub";
        unless (0)