Parse::RecDescent

Есть ли способ узнать про наличие правила?

my $parser = Parse::RecDescent->new( $grammar );

# вот так не работает, $startrule - не:
# my $startrule = $parser->can( 'startrule' );
# croak "No startrule found!" unless $startrule;

# и тут же всё OK:
$parser->startrule( $source );
​x
 
1
my $parser = Parse::RecDescent->new( $grammar );
2
​
3
# вот так не работает, $startrule - не:
4
# my $startrule = $parser->can( 'startrule' );
5
# croak "No startrule found!" unless $startrule;
6
​
7
# и тут же всё OK:
8
$parser->startrule( $source );