| | 221 | |
| | 222 | #extend grok so it knows about Perl 6 table index |
| | 223 | my $filename = File::Spec->catdir( |
| | 224 | Cwd::realpath( File::Basename::dirname(__FILE__) ), |
| | 225 | 'perl6_table_index.pod' ); |
| | 226 | open FILE, $filename or die "Cannot open $filename\n"; |
| | 227 | until (<FILE> =~ /=head1 Table index/) {} |
| | 228 | my $item = undef; |
| | 229 | while(my $line = <FILE>) { |
| | 230 | if($line =~ /^=head2\s+(.+?)$/i) { |
| | 231 | $item = $1; |
| | 232 | } elsif($item) { |
| | 233 | if(not $self->_grok->{functions}{$item}) { |
| | 234 | my @empty = ($item,''); |
| | 235 | $self->_grok->{functions}{$item} = \@empty; |
| | 236 | } |
| | 237 | $self->_grok->{functions}{$item}[1] .= $line; |
| | 238 | } |
| | 239 | } |
| | 240 | close FILE; |
| | 241 | |
| | 242 | @targets_index = sort $self->_grok->target_index(); |
| | 243 | $self->_targets_index( \@targets_index ); |
