https://github.com/awncorp/nano

Minimalist Object Persistence
https://github.com/awncorp/nano

database object-database orm perl perl5 persistence

Last synced: 7 days ago
JSON representation

Minimalist Object Persistence

• Host: GitHub
• URL: https://github.com/awncorp/nano
• Owner: awncorp
• License: other
• Created: 2020-12-29T03:01:24.000Z (almost 4 years ago)
• Default Branch: master
• Last Pushed: 2021-01-15T09:05:19.000Z (almost 4 years ago)
• Last Synced: 2023-08-12T03:19:36.721Z (over 1 year ago)
• Topics: database, object-database, orm, perl, perl5, persistence
• Language: Perl
• Homepage: https://metacpan.org/release/Nano
• Size: 120 KB
• Stars: 1
• Watchers: 1
• Forks: 0
• Open Issues: 0
• Metadata Files:
  • Readme: README
  • Changelog: CHANGES
  • Contributing: CONTRIBUTING.md
  • License: LICENSE
  • Code of conduct: CODE_OF_CONDUCT.md

Awesome Lists containing this project

README

        
NAME

    Nano - Object Persistence

ABSTRACT

    Minimalist Object Persistence

SYNOPSIS

      package Person;

    

      use Moo;

    

      extends 'Nano::Node';

    

      has name => (

        is => 'ro',

        required => 1,

      );

    

      has friends => (

        is => 'ro',

        default => sub { People->new }

      );

    

      sub extroverted {

        my ($self) = @_;

        ($self->friends->count > 1) ? 1 : 0

      }

    

      sub introverted {

        my ($self) = @_;

        ($self->friends->count < 2) ? 1 : 0

      }

    

      package People;

    

      use Moo;

    

      extends 'Nano::Nodes';

    

      sub new_type {

        'Person'

      }

    

      sub extroverted {

        my ($self) = @_;

    

        $self->scope(sub {

          my ($person) = @_;

          $person->extroverted

        });

      }

    

      sub introverted {

        my ($self) = @_;

    

        $self->scope(sub {

          my ($person) = @_;

          $person->introverted

        });

      }

    

      package main;

    

      my $rachel = Person->new(

        id => 'rachel',

        name => 'rachel',

      );

      my $monica = Person->new(

        id => 'monica',

        name => 'monica',

      );

      my $phoebe = Person->new(

        id => 'phoebe',

        name => 'phoebe',

      );

    

      $rachel->friends->set($monica);

      $rachel->friends->set($phoebe);

    

      $monica->friends->set($rachel);

      $monica->friends->set($phoebe);

    

      $phoebe->friends->set($rachel);

      $phoebe->friends->set($monica);

    

      $rachel->save;

      $monica->save;

      $phoebe->save;

    

      $phoebe->friends->count; # 2

      $phoebe->friends->extroverted->count; # 2

      $phoebe->friends->introverted->count; # 0

    

      my $nano = Nano->new;

    

      my $friend = $nano->find('rachel');

DESCRIPTION

    This package provides a minimalist framework for persisting objects

    (i.e. class instances) with as little effort as possible. This

    framework relies on the Zing toolkit which provides pluggable storage

    and serialization options.

LIBRARIES

    This package uses type constraints from:

    Nano::Types

ATTRIBUTES

    This package has the following attributes:

 env

      env(Env)

    This attribute is read-only, accepts (Env) values, and is optional.

METHODS

    This package implements the following methods:

 domain

      domain(Str $name) : Domain

    The domain method returns a Zing::Domain object for the ID provided.

    domain example #1

        my $nano = Nano->new;

      

        my $domain = $nano->domain('changelog');

 dump

      dump(Object $object) : HashRef

    The dump method returns a serialized hash representation for the object

    provided.

    dump example #1

        my $nano = Nano->new;

      

        my $rachel = $nano->find('rachel');

      

        my $dump = $nano->dump($rachel);

 find

      find(Str $name) : Node

    The find method finds, inflates, and returns a prior persisted object

    for the ID provided.

    find example #1

        my $nano = Nano->new;

      

        my $phoebe = $nano->find('phoebe');

 hash

      hash(Str $name) : Str

    The hash method returns a SHA-1 digest for the string provided.

    hash example #1

        my $nano = Nano->new;

      

        my $email = '[email protected]';

      

        $nano->hash($email);

 keyval

      keyval(Str $name) : KeyVal

    The keyval method returns a Zing::KeyVal object for the ID provided.

    keyval example #1

        my $nano = Nano->new;

      

        my $keyval = $nano->keyval('rachel');

 name

      name(Object $object) : Str

    The name method returns the class name for the object provided.

    name example #1

        my $nano = Nano->new;

      

        my $rachel = $nano->find('rachel');

      

        my $name = $nano->name($rachel);

 object

      object(HashRef $object) : Object

    The object method returns an object derived from a prior serialization

    representation.

    object example #1

        my $nano = Nano->new;

      

        my $new_rachel = $nano->object({

          '$type' => 'node',

          '$name' => 'Person',

          '$data' => {

            'id' => 'rachel',

            'name' => 'rachel',

            'nano' => {

              '$skip' => 1

            },

            'friends' => {

              '$skip' => 1

            },

          },

        });

 reify

      reify(Str $name, HashRef $data) : Object

    The reify method constructs an object from the class name and data

    provided.

    reify example #1

        my $nano = Nano->new;

      

        my $new_rachel = $nano->reify('Person', {

          id => 'rachel',

          name => 'rachel',

        });

 table

      table(Str $name) : Table

    The table method returns a Zing::Table object for the ID provided.

    table example #1

        my $nano = Nano->new;

      

        my $rachel = $nano->find('rachel');

      

        my $table = $nano->table($rachel->friends->id);

AUTHOR

    Al Newkirk, [email protected]

LICENSE

    Copyright (C) 2011-2019, Al Newkirk, et al.

    This is free software; you can redistribute it and/or modify it under

    the terms of the The Apache License, Version 2.0, as elucidated in the

    "license file" .

PROJECT

    Wiki 

    Project 

    Initiatives 

    Milestones 

    Contributing

    

    Issues