Yet Another CPAN Grep

Mandel ( J/JH/JHTHORSEN/Mandel-0.31.tar.gz, JHTHORSEN, 2019; MetaCPAN )

Mandel/lib/andel.pm ( view source; MetaCPAN )

ss->_setup(@_) if @_;

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

sub _setup {
  my ($class, $model, @connect) = @_;
  eval "use $model; 1" or die "use $mod

Or

  $mandel->collection("collection_name")->create(\%create_args)->save;

=head2 j

See L<Mojo::JSON/j>.

=head1 METHODS

=head2 import

See L</SYNOPSIS>.

=head1 AUTHOR

Jan Henning Thorsen - C<jht

Mandel ( J/JH/JHTHORSEN/Mandel-0.31.tar.gz, JHTHORSEN, 2019; MetaCPAN )

Mandel/lib/Mandel/Document.pm ( view source; MetaCPAN )

package Mandel::Document;
use Mojo::Base 'Mojo::Base';
use Mojo::JSON::Pointer;
use Mojo::Util 'monkey_patch';
use Mandel::Model;
use Mango::BSON ':bson';
use Scalar::Util 'looks_like_number';
use Car

tant DEBUG => $ENV{MANDEL_CURSOR_DEBUG} ? eval 'require Data::Dumper;1' : 0;

my $POINTER = Mojo::JSON::Pointer->new;

sub id {
  my $self = shift;
  my $raw  = $self->data;

  if (@_) {
    $self->di

r, model    => sub {$model};

  @_ = ($class, $base_class);
  goto &Mojo::Base::import;
}

sub TO_JSON { shift->data }

sub validate_fields {
  my $self = shift;
  if (ref $self->{data} eq 'HASH') {