view release on metacpan or  search on metacpan

lib/andel.pm  view on Meta::CPAN

    return $collection->create($_[0])->save;
  }

  return $collection;
}

sub import {
  my $class  = shift;
  my $caller = caller;

  strict->import;
  warnings->import;

  $class->_setup(@_) if @_;

  no strict 'refs';
  *{"$caller\::c"} = \&c;
  *{"$caller\::j"} = \&Mojo::JSON::j;
}

sub _setup {

t/Online.pm  view on Meta::CPAN

  $dinosaur->relationship(has_one => cat => $cat->document_class)->monkey_patch;
  $dinosaur->field([qw( name )], {});

  $cat->relationship(belongs_to => person => $person->document_class)->monkey_patch;
  $cat->field([qw( type name )], {});

  $connection;
}

sub import {
  strict->import;
  warnings->import;
  plan skip_all => 'Set TEST_ONLINE to test' unless $ENV{TEST_ONLINE};
}

1;