Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | # NOTE: Derived from blib/lib/Inline/denter.pm. |
2 | # Changes made here will be lost when autosplit is run again. | |
3 | # See AutoSplit.pm. | |
4 | package Inline::denter; | |
5 | ||
6 | #line 336 "blib/lib/Inline/denter.pm (autosplit into blib/lib/auto/Inline/denter/_print_ref.al)" | |
7 | sub _print_ref { | |
8 | my ($o, $data, $symbol, $type) = @_; | |
9 | $data =~ /^(([\w:]+)=)?$type\(0x([0-9a-f]+)\)$/ | |
10 | or croak "Invalid reference: $data\n"; | |
11 | my $stream = $symbol; | |
12 | $stream .= $2 if defined $2; | |
13 | $o->{xref}{$3}++; | |
14 | croak "Inline::denter does not handle duplicate references" | |
15 | if $o->{xref}{$3} > 1; | |
16 | $stream .= "\n"; | |
17 | $stream .= $o->{key}, $o->{key} = '' if $o->{key}; | |
18 | return $stream; | |
19 | } | |
20 | ||
21 | # end of Inline::denter::_print_ref | |
22 | 1; |