rsrchboy

#!/usr/bin/env perl
#
# Chris Weyl <cweyl@alumni.drew.edu>
 
use strict;
use warnings;
 
use lib '/usr/share/bugzilla';
 
use Plack::App::CGIBin;

rsrchboy

#####################################################################
# Perl tests subpackage macros...

%perl_version   %(eval "`%{__perl} -V:version`"; echo $version)
%perl_testdir   %{_libexecdir}/perl5-tests
%cpan_dist_name %(eval echo %{name} | %{__sed} -e 's/^perl-//')

# easily mark something as required by -tests and BR to the main package
%tests_req() %{expand:\

rsrchboy

SYNOPSIS

package Foo;
use Moose;

# mark overloads as methods and wipe other non-methods
use MooseX::MarkAsMethods autoclean => 1;

# define overloads, etc as normal

rsrchboy

package MooseX::AutoDestruct;

# ABSTRACT: Clear your attributes after a certain time

use warnings;
use strict;

use namespace::autoclean;

# debugging

rsrchboy

package MooseX::MarkAsMethods;

# ABSTRACT: Mark overload code symbols as methods

use warnings;
use strict;

use namespace::autoclean;

use B::Hooks::EndOfScope;

rsrchboy

package MooseX::AttributeShortcuts;

# ABSTRACT: Shorthand for common attribute options

use strict;
use warnings;

use namespace::autoclean;

use Moose ();

rsrchboy

#!/usr/bin/env perl

# A small scriptie to clean up all those branches that get carried over
# after a github fork that (99% of the time) end up cluttering everything up
# and obscuring your own branches :)
#
# This script is under the GNU GPL, either version 2 or (at your option) any
# later version.
#
# Chris Weyl <cweyl@alumni.drew.edu> 2010.

rsrchboy

#!/usr/bin/env perl

# This script is under the GNU GPL, either version 2 or (at your option) any
# later version.
#
# Chris Weyl <cweyl@alumni.drew.edu> 2010.

use common::sense;
use autodie 'system';
use opts;

rsrchboy

has config => (
    traits => ['Hash'],
    is     => 'bare',
    isa    => 'HashRef[Str]',
    lazy   => 1,

    # returns a hashref of key/value config pairs
    builder => 'load_config',

    handles => {

rsrchboy

# ta-da!
has expensive_value => (is => 'ro', lazy_build => 1);

sub _build_foo { ... something expensive ... }