view release on metacpan or  search on metacpan

t/TestSuite.pm  view on Meta::CPAN

=item *

B<YAML::XS>, nick -- C<xs>.

=back

=cut

sub RCD_load_patterns ( )               {
    my $fn = (caller)[1];
    $fn =~ s{\.t$}{.yaml};
    if( $Y_Choice->[0] eq q|tiny|    ) {
        my $yaml = YAML::Tiny->read( $fn );
        defined $yaml                                 or Test::More::BAIL_OUT(
          qq|YAML::Tiny has this to say: | . YAML::Tiny->errstr );
                          %{$yaml->[0]} }
    elsif( $Y_Choice->[0] eq q|old|  ) {
        my $yaml;
        eval { $yaml = YAML::LoadFile( $fn ); 1 }     or Test::More::BAIL_OUT(
          qq|YAML::Old has this to say; $@| );