> perl -d `which pcpod` CodeLayout::RequireUseUTF8

[...]

DB<1> s
Perl::Critic::Command::_dispatch_special_requests(.../lib/perl5/site_perl/5.10.0/Perl/Critic/Command.pm:139):
139:        if ( $opts{-doc}             ) { _render_policy_docs( %opts ) }  #Exits

DB<1> s
Perl::Critic::Command::_render_policy_docs(.../lib/perl5/site_perl/5.10.0/Perl/Critic/Command.pm:588):
588:        my (%opts) = @_;