Skip to content

Instantly share code, notes, and snippets.

@mauke
mauke / heredoc.t
Last active August 29, 2015 14:27 — forked from jeffreykegler/heredoc.t
Example of Perl-style heredoc parsing, for blog post.
#!perl
# Copyright 2013 Jeffrey Kegler
# This file is part of Marpa::R2. Marpa::R2 is free software: you can
# redistribute it and/or modify it under the terms of the GNU Lesser
# General Public License as published by the Free Software Foundation,
# either version 3 of the License, or (at your option) any later version.
#
# Marpa::R2 is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
package Return::MultiLevel;
use warnings;
use strict;
our $VERSION = '0.03';
use Carp qw(confess);
use Data::Munge qw(eval_string);
use parent 'Exporter';
@mauke
mauke / not_ok_keys
Created December 3, 2012 10:15
hash traversal order
Data::Visitor::Callback=HASH(): flow: visit_hash_entry key constraint value CODE(0x94c2058)
Data::Visitor::Callback=HASH(): flow: visit_hash_entry key parameterized_from value Moose::Meta::TypeConstraint::Parameterizable=HASH(0x9252bc8)
Data::Visitor::Callback=HASH(): flow: visit_hash_entry key constraint value CODE(0x9238120)
Data::Visitor::Callback=HASH(): flow: visit_hash_entry key name value ArrayRef
Data::Visitor::Callback=HASH(): flow: visit_hash_entry key compiled_type_constraint value CODE(0x9252d28)
Data::Visitor::Callback=HASH(): flow: visit_hash_entry key parent value Moose::Meta::TypeConstraint=HASH(0x9248600)
Data::Visitor::Callback=HASH(): flow: visit_hash_entry key constraint value CODE(0x9225800)
Data::Visitor::Callback=HASH(): flow: visit_hash_entry key name value Ref
Data::Visitor::Callback=HASH(): flow