my $class = shift;
my $file = shift;
- eval { require YAML::Syck; };
+ eval { require YAML::Syck; YAML::Syck->VERSION( '0.70' ) };
if ( $@ ) {
require YAML;
return YAML::LoadFile( $file );
}
}
+=head2 is_supported( )
+
+Returns true if either L<YAML::Syck> or L<YAML> is available.
+
+=cut
+
+sub is_supported {
+ eval { require YAML::Syck; YAML::Syck->VERSION( '0.70' ) };
+ return 1 unless $@;
+ eval { require YAML; };
+ return $@ ? 0 : 1;
+}
+
=head1 AUTHOR
Brian Cassidy E<lt>bricas@cpan.orgE<gt>