- Timestamp:
- 04/13/08 03:13:17 (9 months ago)
- Location:
- ext/Muldis-Rosetta/lib/Muldis
- Files:
-
- 4 modified
-
Rosetta.pm (modified) (1 diff)
-
Rosetta/Engine/Example.pm (modified) (5 diffs)
-
Rosetta/Interface.pm (modified) (1 diff)
-
Rosetta/Validator.pm (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
ext/Muldis-Rosetta/lib/Muldis/Rosetta.pm
r20273 r20275 40 40 Rosetta to work with databases. Like the Perl DBI, Muldis Rosetta has 41 41 separately distributable core, implementation, and extension distributions. 42 Like an implementation ("driver") of the Perl DBI, an implementation42 Like an implementation ("driver") of the Perl DBI, an implementation 43 43 ("engine") of Muldis Rosetta works according to the command design pattern; 44 44 its API is very minimalistic and mainly serves to process arbitrary -
ext/Muldis-Rosetta/lib/Muldis/Rosetta/Engine/Example.pm
r20273 r20275 74 74 ########################################################################### 75 75 76 method new_process of Muldis::Rosetta::Engine::Example::Public::Process () { 76 method new_process 77 of Muldis::Rosetta::Engine::Example::Public::Process () { 77 78 return ::Muldis::Rosetta::Engine::Example::Public::Process.new( 78 79 :machine(self) ); … … 113 114 ########################################################################### 114 115 115 submethod BUILD (Muldis::Rosetta::Engine::Example::Public::Machine :$machine!) { 116 submethod BUILD 117 (Muldis::Rosetta::Engine::Example::Public::Machine :$machine!) { 116 118 117 119 # TODO: input checks. … … 148 150 } 149 151 150 method new_func_binding of Muldis::Rosetta::Engine::Example::Public::FuncBinding151 () {152 method new_func_binding 153 of Muldis::Rosetta::Engine::Example::Public::FuncBinding () { 152 154 return ::Muldis::Rosetta::Engine::Example::Public::FuncBinding.new( 153 155 :process(self) ); … … 158 160 } 159 161 160 method new_proc_binding of Muldis::Rosetta::Engine::Example::Public::ProcBinding161 () {162 method new_proc_binding 163 of Muldis::Rosetta::Engine::Example::Public::ProcBinding () { 162 164 return ::Muldis::Rosetta::Engine::Example::Public::ProcBinding.new( 163 165 :process(self) ); … … 251 253 ########################################################################### 252 254 253 submethod BUILD (Muldis::Rosetta::Engine::Example::Public::Process :$process!,254 Str :$decl_type!) {255 submethod BUILD (Muldis::Rosetta::Engine::Example::Public::Process 256 :$process!, Str :$decl_type!) { 255 257 256 258 # TODO: input checks. -
ext/Muldis-Rosetta/lib/Muldis/Rosetta/Interface.pm
r20273 r20275 42 42 }; 43 43 if (my $err = $!) { 44 die qq{new_machine(): The Muldis Rosetta Engine mod u'$engine_name'}44 die qq{new_machine(): The Muldis Rosetta Engine mod '$engine_name'} 45 45 ~ qq{ threw an exception during its new_machine() exec: $err}; 46 46 } 47 47 die q{new_machine(): The new_machine() constructor function of the} 48 ~ qq{ Muldis Rosetta Engine mod ule '$engine_name' did not returnan}49 ~ q{ obj ectof a Muldis::Rosetta::Interface::Machine-doing class.}48 ~ qq{ Muldis Rosetta Engine mod '$engine_name' did not ret an} 49 ~ q{ obj of a Muldis::Rosetta::Interface::Machine-doing class.} 50 50 if !$machine.defined 51 51 or !$machine.does(::Muldis::Rosetta::Interface::Machine); -
ext/Muldis-Rosetta/lib/Muldis/Rosetta/Validator.pm
r20273 r20275 16 16 plan( 13 ); 17 17 18 say "#### Muldis::Rosetta::Validator starting test of $engine_name ####"; 18 say "#### Muldis::Rosetta::Validator" 19 ~ " starting test of $engine_name ####"; 19 20 20 21 # Instantiate a Muldis Rosetta DBMS / virtual machine. … … 26 27 ); 27 28 does_ok( $machine, 'Muldis::Rosetta::Interface::Machine' ); 28 my Muldis::Rosetta::Interface::Process $process = $machine.new_process(); 29 my Muldis::Rosetta::Interface::Process $process 30 = $machine.new_process(); 29 31 does_ok( $process, 'Muldis::Rosetta::Interface::Process' ); 30 32 31 33 _scenario_foods_suppliers_shipments_v1( $process ); 32 34 33 say "#### Muldis::Rosetta::Validator finished test of $engine_name ####"; 35 say "#### Muldis::Rosetta::Validator" 36 ~ " finished test of $engine_name ####"; 34 37 35 38 return;
