Mouse#TO_JSON

use Mouse::Meta::Class;
use JSON::XS;

sub TO_JSON {
    my ($self) = @_;
    my $klass = +Mouse::Meta::Class->initialize(ref $self);
    +{
        map {
            my $key = $_;
            my $val = $self->{$key};
            my $attr = $klass->get_attribute($key);
            if ($attr) {
                if ($attr->type_constraint->is_a_type_of('Bool')) {
                    $val = $val ? JSON::XS::true : JSON::XS::false;
                }
                ($key => $val);
            } else {
                ();
            }

        }
        keys %{ $self }
    };
}