sample for skim

sub xxx {
	CATCH (X::SQL) { ... };
	CATCH (CORE::Block::Destroy) { ... };
	CATCH (CORE::Block::Leave) { ... };
	CATCH (CORE::Signal::HUP) { ... };

	has $foo;
	has $bar;

	my $baz = $foo->build ($bar);

	return sub { $baz->next };
}

proclaim xxx::foo => Some::Builder->new;

xxx bar => '123';