Lines Matching refs:pack
43 my $pack = shift;
45 my $old = $GLOBAL_PREPEND{$pack};
47 $GLOBAL_PREPEND{$pack} = shift;
60 my ($pack, %a) = @_;
72 Carp::croak("Usage: $ {pack}::new(TYPE => ..., SOURCE => ...)");
95 bless $self => $pack;
150 my $pack = ref $self;
151 … die "Can only acquire data for $pack objects of subtype STRING, but this is $type; aborting";
183 my $pack = ref $self;
187 die "Can only compile $pack objects of subtype STRING, but this is $self->{TYPE}; aborting";
455 my ($pack, $text) = splice @_, 0, 2;
457 my $templ = $pack->new(TYPE => 'STRING', SOURCE => $text, @_)