view release on metacpan or  search on metacpan

t/01-simple.t  view on Meta::CPAN

use Data::Dumper;
use Scalar::Util qw(blessed);

unless (eval "use Test::NoWarnings; 1") {
  diag 'Please consider installing Test::NoWarnings for an additional test';
}

#################### prepare some subs

# object is "in sin", that is, not blessed.
sub in_sin($;$) {
  my ($obj, $comment) = @_;
  my $t = Test::More->builder;
  $t->ok(! blessed($obj), $comment);
}

sub create_beat {
  open my $fh, "<", "Makefile.PL" or die "Could not open Makefile.PL for testing";
  return bless({
            one => bless({
                    hey => 'ho',