#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use 5.010000;
use autodie;
use Test::More;
use Test::Ika;
describe 'foo' => sub {
before_each {
warn "OUTER BEFORE";
};
after_each {
warn "OUTER AFTER";
};
describe 'x' => sub {
before_each {
warn "BEFORE_INNER";
};
after_each {
warn "AFTER_INNER";
};
it y => sub {
ok 1;
};
it z => sub {
ok 1;
};
};
};