use Data::Dump 'dump';
 
my $person = Person->new({

package Employee;
 
use Class::MOP;

package Person;
 
use Class::MOP;

use MooseX::Declare;
 
class BankAccount {

package main;
use Data::Dump 'dump';
 

package App::Triangle;
use Moose;
use Moose::Util::TypeConstraints;

package App::Circle;
use Moose;
use Moose::Util::TypeConstraints;

package App::Shape;
use Moose;
 

package App::ColorMixin;
use Moose::Role;
use Moose::Util::TypeConstraints;

package App::Point;
use Moose;
 

package App::Person;
use Moose;
use MooseX::Storage;

package App::TypesLibrary;
use URI;
use MooseX::Types -declare => [qw/

package App::Role::Storage;
use MooseX::Role::Parameterized;
use Moose::Util::TypeConstraints;

package App;
use Moose;
use Moose::Util::TypeConstraints;

#!/usr/bin/perl -w
use common::sense;
 

use strict qw(vars subs);
use feature qw(say state switch);
no warnings;

use common::sense;
use EV;
use AnyEvent;

use common::sense;
use EV;
use AnyEvent;

use AnyEvent::CouchDB;
 
my $couch   = couch('http://localhost:5984/');

# see AnyEvent.pm for full source code
our $WAITING;