# in Astro::Observation

sub new {
    my $self  = shift;

    # Foo->new('bar',@_) => Foo::Bar->new(@_)

    my $class = __PACKAGE__ . "::" . ucfirst(shift);

    require autouse;
    autouse->import( $class, "$class\::new" );

    return $class->new( @_ );
}