Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: multiunsp
Fetching contributors…

Cannot retrieve contributors at this time

20 lines (18 sloc) 0.429 kB
# Stash.pmc
#
# Copyright 2009-2010, Larry Wall
#
# You may copy this software under the terms of the Artistic License,
# version 2.0 or later.
use 5.010;
package Stash;
sub new {
my $class = shift;
my %attrs = @_;
bless \%attrs, $class;
}
sub idref { return $_[0]->{'!id'} };
sub id { return $_[0]->{'!id'}->[0] // '???' };
sub file { return $_[0]->{'!file'} };
sub line { return $_[0]->{'!line'} };
1;
Jump to Line
Something went wrong with that request. Please try again.