autarch

== Methods

get_method($name)
-> method($name)

has_method($name)
-> has_method($name)

get_method_list - local names
-> method_names

autarch

Role(
    'R2.Role.Spinner', {
        my: {
            has: {
                Spinner: {
                    is:        'roc',
                    isPrivate: true,
                    lazy:      true,
                    builder:   '_BuildSpinner'
                }

autarch

1. Don't optimize
2. Don't optimize, I'm serious
3. Don't optimize without benchmarking first
4. Don't benchmark without profiling first
5. See rule #1

autarch

AUTHORDEPS=$(/var/lib/jenkins/perl5/perlbrew/perls/perl-5.14.1/bin/dzil authordeps --missing)
if [ ! -z "$AUTHORDEPS" ]; then
    /var/lib/jenkins/perl5/perlbrew/perls/perl-5.14.1/bin/cpanm $AUTHORDEPS
fi
RUNTIMEDEPS=$(/var/lib/jenkins/perl5/perlbrew/perls/perl-5.14.1/bin/dzil listdeps --missing --author)
if [ ! -z "$RUNTIMEDEPS" ]; then
    /var/lib/jenkins/perl5/perlbrew/perls/perl-5.14.1/bin/cpanm $RUNTIMEDEPS
fi
/var/lib/jenkins/perl5/perlbrew/perls/perl-5.14.1/bin/dzil clean
/var/lib/jenkins/perl5/perlbrew/perls/perl-5.14.1/bin/dzil build --no-tgz

autarch

#!/usr/bin/env perl

use strict;
use warnings;

use Path::Class qw( file );

my $file = shift;

if ($file) {

autarch

(defun my-perltidy-command ()
  (concat "my-perltidy "
    (cond
      ((buffer-file-name) (file-truename buffer-file-name))
      (t ""))))

(defun perltidy-region ()
  "Run perltidy on the current region."
  (interactive)

autarch

use v5.14;

use XML::SAX::Writer;

my $w1 = XML::SAX::Writer->new(
    Output => '/tmp/writer-test1',
);

open my $fh, '>', '/tmp/writer-test2';
binmode $fh, ':encoding(UTF-8)';

autarch

#!/usr/bin/env ruby

require 'csv'
require 'net/http'
require 'open-uri'
require 'optparse'
require 'uri'

fields = ['country_code',
          'country_name',

autarch

#!/usr/bin/env ruby

require 'csv'
require 'net/http'
require 'open-uri'
require 'optparse'
require 'uri'

fields = ['country_code',
          'country_name',

autarch

#!/usr/bin/env perl

use strict;
use warnings;

use Perl::Tidy 20120714;
use Path::Class qw( file );

my $file = shift;