NAME

ObjStore::Tutorial - A Gentle Introduction

SYNOPSIS

This silly tutorial will help you become familiar with OS/Perl!

The HTML version is easier to read than the man page version.

Once you have won a few times, make sure to read the source code to see how easy it is to put stuff like this together.

DESCRIPTION

/home/joshua% posh

posh 1.21 (Perl 5.00454 ObjectStore Release 5.0.1.0)
[set for READ]

/home/joshua% cd /opt/os/tmp

/opt/os/tmp% help

Outside of databases:
   cd <dir>
   cd <db> [class [inc]]  # enters <db> or $class->new("update", 0666)
   ls <dir>
   pwd
Inside of databases:
   cd string           # interprets string according to $at->POSH_CD
   cd $at->...         # your expression should evaluate to a ref
   cd ..               # what you expect
   ls
   peek                # ls but more
   rawpeek             # ignore special POSH_PEEK methods
   pwd
   <or any perl statement!>
Change transaction mode:
   read
   update
   abort_only

/opt/os/tmp% ls

perltest      posh

/opt/os/tmp% cd tutor ObjStore::Tutorial

[creating tutor]

$at = ObjStore::Table2=REF(0xe39809b8)% ls

$at = TABLE ObjStore::Table2 {
  array[18] of Worker ...
  indices: NAME;
},

$at = ObjStore::Table2=REF(0xe39809b8)% $db->won

Checking to see if Ms. Subject has won...
  'Ms. Subject' works for 'Mr. Substituent';
  You haven't won until everybody works for you.

$at = ObjStore::Table2=REF(0xe39809b8)% ls $db->me

[0] = Worker {
  boss => Worker ...
  name => 'Ms. Subject',
},

$at = ObjStore::Table2=REF(0xe39809b8)% $db->report

index	boss	boss_name	name
0	Worker=REF(0xe3981714)	Mr. Substituent	Ms. Subject
1	Worker=REF(0xe3981714)	Mr. Substituent	Mr. Subliminal
2	Worker=REF(0xe3981394)	Ms. Subtracter	Mr. Submersible
3	Worker=REF(0xe3981a2c)	Mr. Subsistent	Ms. Subrogation
4	Worker=REF(0xe39812b4)	Mr. Subterfuge	Mr. Subservient
5	Worker=REF(0xe3981714)	Mr. Substituent	Mr. Subsidiary
6	Worker=REF(0xe3980f48)	Ms. Subject	Ms. Subsidy
7	Worker=REF(0xe3980f48)	Ms. Subject	Mr. Subsistent
8	Worker=REF(0xe3981394)	Ms. Subtracter	Ms. Substantial
9	Worker=REF(0xe3981b48)	Ms. Substantial	Ms. Substantive
10	Worker=REF(0xe3981b48)	Ms. Substantial	Mr. Substituent
11	Worker=REF(0xe39812b4)	Mr. Subterfuge	Mr. Substitute
12	Worker=REF(0xe3980f48)	Ms. Subject	Ms. Substrate
13	Worker=REF(0xe3981634)	Ms. Subrogation	Mr. Subterfuge
14	Worker=REF(0xe3980f48)	Ms. Subject	Mr. Subterran
15	Worker=REF(0xe3981a2c)	Mr. Subsistent	Ms. Subtracter
16	Worker=REF(0xe3981554)	Mr. Submersible	Ms. Subtrahend
17	Worker=REF(0xe3981634)	Ms. Subrogation	Mr. Subvert
18	boss	boss_name	name

$at = ObjStore::Table2=REF(0xe39809b8)% update

[set for UPDATE]

$at = ObjStore::Table2=REF(0xe39809b8)% $db->me->name("Joshua")

$fake1 = 'Joshua',

$at = ObjStore::Table2=REF(0xe39809b8)% ls $db->me

[0] = Worker {
  boss => Worker ...
  name => 'Joshua',
},

$at = ObjStore::Table2=REF(0xe39809b8)% $db->me->boss($db->me)

$fake1 = undef,

$at = ObjStore::Table2=REF(0xe39809b8)% ls $db->me

[0] = Worker {
  name => 'Joshua',
},

$at = ObjStore::Table2=REF(0xe39809b8)% $db->report

index	boss_name	name
0	nobody	Joshua
1	Mr. Substituent	Mr. Subliminal	Worker=REF(0xe3981714)
2	Ms. Subtracter	Mr. Submersible	Worker=REF(0xe3981394)
3	Mr. Subsistent	Ms. Subrogation	Worker=REF(0xe3981a2c)
4	Mr. Subterfuge	Mr. Subservient	Worker=REF(0xe39812b4)
5	Mr. Substituent	Mr. Subsidiary	Worker=REF(0xe3981714)
6	Joshua	Ms. Subsidy	Worker=REF(0xe3980f48)
7	Joshua	Mr. Subsistent	Worker=REF(0xe3980f48)
8	Ms. Subtracter	Ms. Substantial	Worker=REF(0xe3981394)
9	Ms. Substantial	Ms. Substantive	Worker=REF(0xe3981b48)
10	Ms. Substantial	Mr. Substituent	Worker=REF(0xe3981b48)
11	Mr. Subterfuge	Mr. Substitute	Worker=REF(0xe39812b4)
12	Joshua	Ms. Substrate	Worker=REF(0xe3980f48)
13	Ms. Subrogation	Mr. Subterfuge	Worker=REF(0xe3981634)
14	Joshua	Mr. Subterran	Worker=REF(0xe3980f48)
15	Mr. Subsistent	Ms. Subtracter	Worker=REF(0xe3981a2c)
16	Mr. Submersible	Ms. Subtrahend	Worker=REF(0xe3981554)
17	Ms. Subrogation	Mr. Subvert	Worker=REF(0xe3981634)
18	boss_name	name	boss

$at = ObjStore::Table2=REF(0xe39809b8)% $db->won

Checking to see if Joshua has won...
  Congratuations!  Joshua wins!

[I got lucky because the randomly created database already had everyone working for me. You may not have been so lucky with your database. In any case, continue reading and things will make sense.]

$at = ObjStore::Table2=REF(0xe39809b8)% $db->reset

$fake1 = ObjStore::Tutorial[/opt/os/tmp/tutor, update] {
  table => TABLE ObjStore::Table2 {
    array[18] of Worker {
      boss => Worker {
        boss => Worker {
          boss => Worker {
            boss => Worker {
              boss => Worker ...
              name => 'Ms. Subliminal',
            },
            name => 'Ms. Subsidy',
          },
          name => 'Ms. Substituent',
        },
        name => 'Mr. Subtracter',
      },
      name => 'Ms. Subject',
    },
    indices: NAME;
  },
},

$at = ObjStore::Table2=REF(0xe39809b8)% $db->report

index	boss	boss_name	name
0	Worker=REF(0xe39819d0)	Mr. Subtracter	Ms. Subject
1	Worker=REF(0xe3981554)	Ms. Subsidy	Ms. Subliminal
2	Worker=REF(0xe39819d0)	Mr. Subtracter	Ms. Submersible
3	Worker=REF(0xe3981f08)	Ms. Subliminal	Mr. Subrogation
4	Worker=REF(0xe3981554)	Ms. Subsidy	Ms. Subservient
5	Worker=REF(0xe3981634)	Mr. Subsistent	Ms. Subsidiary
6	Worker=REF(0xe3981f08)	Ms. Subliminal	Ms. Subsidy
7	Worker=REF(0xe3981e98)	Ms. Subject	Mr. Subsistent
8	Worker=REF(0xe3981324)	Mr. Subterfuge	Ms. Substantial
9	Worker=REF(0xe3981554)	Ms. Subsidy	Mr. Substantive
10	Worker=REF(0xe3981554)	Ms. Subsidy	Ms. Substituent
11	undef	nobody	Mr. Substitute
12	Worker=REF(0xe3981394)	Ms. Subterran	Mr. Substrate
13	Worker=REF(0xe3980f48)	Mr. Subrogation	Mr. Subterfuge
14	Worker=REF(0xe3981634)	Mr. Subsistent	Ms. Subterran
15	Worker=REF(0xe3981784)	Ms. Substituent	Mr. Subtracter
16	Worker=REF(0xe3981e98)	Ms. Subject	Mr. Subtrahend
17	undef	nobody	Ms. Subvert
18	boss	boss_name	name

$at = ObjStore::Table2=REF(0xe39809b8)% $db->me->name("Joshua")

$fake1 = 'Joshua',

$at = ObjStore::Table2=REF(0xe39809b8)% $db->me->boss($db->me)

$fake1 = undef,

$at = ObjStore::Table2=REF(0xe39809b8)% $db->won

Checking to see if Joshua has won...
  'Ms. Subliminal' works for 'Ms. Subsidy';
  You haven't won until everybody works for you.

$at = ObjStore::Table2=REF(0xe39809b8)% $db->report

index	boss_name	name
0	nobody	Joshua
1	Ms. Subsidy	Ms. Subliminal	Worker=REF(0xe3981554)
2	Mr. Subtracter	Ms. Submersible	Worker=REF(0xe39819d0)
3	Ms. Subliminal	Mr. Subrogation	Worker=REF(0xe3981f08)
4	Ms. Subsidy	Ms. Subservient	Worker=REF(0xe3981554)
5	Mr. Subsistent	Ms. Subsidiary	Worker=REF(0xe3981634)
6	Ms. Subliminal	Ms. Subsidy	Worker=REF(0xe3981f08)
7	Joshua	Mr. Subsistent	Worker=REF(0xe3981e98)
8	Mr. Subterfuge	Ms. Substantial	Worker=REF(0xe3981324)
9	Ms. Subsidy	Mr. Substantive	Worker=REF(0xe3981554)
10	Ms. Subsidy	Ms. Substituent	Worker=REF(0xe3981554)
11	nobody	Mr. Substitute
12	Ms. Subterran	Mr. Substrate	Worker=REF(0xe3981394)
13	Mr. Subrogation	Mr. Subterfuge	Worker=REF(0xe3980f48)
14	Mr. Subsistent	Ms. Subterran	Worker=REF(0xe3981634)
15	Ms. Substituent	Mr. Subtracter	Worker=REF(0xe3981784)
16	Joshua	Mr. Subtrahend	Worker=REF(0xe3981e98)
17	nobody	Ms. Subvert
18	boss_name	name	boss

$at = ObjStore::Table2=REF(0xe39809b8)% ls

$at = TABLE ObjStore::Table2 {
  array[18] of Worker ...
  indices: NAME;
},

$at = ObjStore::Table2=REF(0xe39809b8)% $at->fetch('name', 'Ms. Subliminal')

$fake1 = Worker {
  boss => Worker {
    boss => Worker ...
    name => 'Ms. Subsidy',
  },
  name => 'Ms. Subliminal',
},

$at = ObjStore::Table2=REF(0xe39809b8)% $at->fetch('name', 'Ms. Subliminal')->boss->boss($db->me)

$fake1 = Worker {
  name => 'Joshua',
},

$at = ObjStore::Table2=REF(0xe39809b8)% $db->report

index	boss_name	name
0	nobody	Joshua
1	Ms. Subsidy	Ms. Subliminal	Worker=REF(0xe3981554)
2	Mr. Subtracter	Ms. Submersible	Worker=REF(0xe39819d0)
3	Ms. Subliminal	Mr. Subrogation	Worker=REF(0xe3981f08)
4	Ms. Subsidy	Ms. Subservient	Worker=REF(0xe3981554)
5	Mr. Subsistent	Ms. Subsidiary	Worker=REF(0xe3981634)
6	Joshua	Ms. Subsidy	Worker=REF(0xe3981e98)
7	Joshua	Mr. Subsistent	Worker=REF(0xe3981e98)
8	Mr. Subterfuge	Ms. Substantial	Worker=REF(0xe3981324)
9	Ms. Subsidy	Mr. Substantive	Worker=REF(0xe3981554)
10	Ms. Subsidy	Ms. Substituent	Worker=REF(0xe3981554)
11	nobody	Mr. Substitute
12	Ms. Subterran	Mr. Substrate	Worker=REF(0xe3981394)
13	Mr. Subrogation	Mr. Subterfuge	Worker=REF(0xe3980f48)
14	Mr. Subsistent	Ms. Subterran	Worker=REF(0xe3981634)
15	Ms. Substituent	Mr. Subtracter	Worker=REF(0xe3981784)
16	Joshua	Mr. Subtrahend	Worker=REF(0xe3981e98)
17	nobody	Ms. Subvert
18	boss_name	name	boss

$at = ObjStore::Table2=REF(0xe39809b8)% $db->won

Checking to see if Joshua has won...
  'Mr. Substitute' works for 'nobody' instead of you;
  You haven't won until everybody works for you.

$at = ObjStore::Table2=REF(0xe39809b8)% ls $at->array->[11]

[0] = Worker {
  name => 'Mr. Substitute',
},

$at = ObjStore::Table2=REF(0xe39809b8)% $at->array->[11]->boss($db->me)

$fake1 = Worker {
  name => 'Joshua',
},

$at = ObjStore::Table2=REF(0xe39809b8)% $db->won

Checking to see if Joshua has won...
  'Ms. Subvert' works for 'nobody' instead of you;
  You haven't won until everybody works for you.

$at = ObjStore::Table2=REF(0xe39809b8)% $db->reset; ()

$at = ObjStore::Table2=REF(0xe39809b8)% $db->me->name("Joshua")

$fake1 = 'Joshua',

$at = ObjStore::Table2=REF(0xe39809b8)% $db->won

Checking to see if Joshua has won...
  'Joshua' works for 'Ms. Subservient' instead of you;
  You haven't won until everybody works for you.

$at = ObjStore::Table2=REF(0xe39809b8)% $db->report

index	boss	boss_name	name
0	Worker=REF(0xe3981470)	Mr. Subsidiary	Joshua
1	Worker=REF(0xe3981554)	Ms. Subrogation	Ms. Subliminal
2	Worker=REF(0xe3981780)	Ms. Subsistent	Mr. Submersible
3	Worker=REF(0xe3980c54)	Ms. Subliminal	Ms. Subrogation
4	Worker=REF(0xe3981244)	Ms. Substantial	Ms. Subservient
5	Worker=REF(0xe3981634)	Ms. Subservient	Mr. Subsidiary
6	Worker=REF(0xe3981a9c)	Ms. Subterran	Mr. Subsidy
7	Worker=REF(0xe3981a9c)	Ms. Subterran	Ms. Subsistent
8	Worker=REF(0xe3981bec)	Mr. Subvert	Ms. Substantial
9	Worker=REF(0xe3981b7c)	Ms. Subtrahend	Mr. Substantive
10	Worker=REF(0xe3981864)	Mr. Submersible	Ms. Substituent
11	Worker=REF(0xe3981b7c)	Ms. Subtrahend	Ms. Substitute
12	Worker=REF(0xe3981a9c)	Ms. Subterran	Mr. Substrate
13	Worker=REF(0xe3981394)	Ms. Substitute	Ms. Subterfuge
14	Worker=REF(0xe3981244)	Ms. Substantial	Ms. Subterran
15	Worker=REF(0xe3981470)	Mr. Subsidiary	Mr. Subtracter
16	Worker=REF(0xe39819d0)	Mr. Substrate	Ms. Subtrahend
17	Worker=REF(0xe3981634)	Ms. Subservient	Mr. Subvert
18	boss	boss_name	name

$at = ObjStore::Table2=REF(0xe39809b8)% cd array

$at = ObjStore::AV=REF(0xe3fd0000)% ls

$at = ObjStore::AV [
  Worker ...
  Worker ...
  Worker ...
  Worker ...
  Worker ...
  Worker ...
  Worker ...
  Worker ...
  Worker ...
  Worker ...
  Worker ...
  Worker ...
  Worker ...
  Worker ...
  Worker ...
  Worker ...
  Worker ...
  Worker ...
],

$at = ObjStore::AV=REF(0xe3fd0000)% for (my $x=0; $at->[$x]; $x++) { $at->[$x]->boss($db->me) }

$fake1 = 18,
$fake2 = undef,

$at = ObjStore::AV=REF(0xe3fd0000)% $db->won

Checking to see if Joshua has won...
  Congratuations!  Joshua wins!

$at = ObjStore::Table2=REF(0xe39809b8)% ls

$at = TABLE ObjStore::Table2 {
  array[18] of Worker ...
  indices: NAME;
},

$at = ObjStore::Table2=REF(0xe39809b8)% cd 3

$at = Worker=REF(0xe3981554)% ls

$at = Worker {
  boss => Worker ...
  name => 'Ms. Subrogation',
},

$at = Worker=REF(0xe3981554)% cd boss

$at = Worker=REF(0xe3980f48)% ls

$at = Worker {
  name => 'Joshua',
},

$at = Worker=REF(0xe3980f48)%

API REFERENCE

`ObjStore::Tutorial`

$db = ObjStore::Tutorial[/export2/os/tmp/tutor, update] {
 table => TABLE ObjStore::Table2 {
   array[21] of Worker {
     boss => Worker ...
     name => 'Mr. Subject',
   },
   indices: NAME;
 },
},

$db->me

Returns yourself.
$db->report

Print a CSV style report of who works for whom.
$db->won

Checks to see if you have won the tutorial.
$db->reset

Resets the state of the tutorial.

`Worker`

$at = Worker {
 boss => Worker ...
 name => 'Mr. Subject',
},

$w->name([$new_name])

Returns the current name of the worker. If $new_name is given, does the re-assignment first.
$w->boss([$new_boss])

Returns the current boss. If a $new_boss is given, does the re-assignment first.

BUGS

Usage is a bit more cumbersome than I would like. The interface will change slightly as perl supports more overload-type features.

AUTHOR

This package is free software and is provided "as is" without express or implied warranty. It may be used, redistributed and/or modified under the terms of the Perl Artistic License (see http://www.perl.com/perl/misc/Artistic.html)

1 POD Error

The following errors were encountered while parsing the POD:

To install ObjStore, copy and paste the appropriate command in to your terminal.

cpanm

cpanm ObjStore

CPAN shell

perl -MCPAN -e shell
install ObjStore

For more information on module installation, please visit the detailed CPAN module installation guide.

	Global
`s`	Focus search bar
`?`	Bring up this help dialog

	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)

	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse

	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)

NAME

SYNOPSIS

DESCRIPTION

API REFERENCE

ObjStore::Tutorial

Worker

BUGS

AUTHOR

Module Install Instructions

`ObjStore::Tutorial`

`Worker`