Re^3: Non-retarded ORMs, and a general ORM discussions.

You need an example? It's just a method. There you go. This creates one schema object based on whatever is in your database.

To read a PostgreSQL database and create a schema that can be used by Alzabo. If you feel like it, it looks like there's a ->runtime_clone method on the Alzabo::Create::Schema object as well. You wouldn't use that for normal runtime but it might be convenient for your maintenance scripts.

my $schema = Alzabo::Create::Schema->reverse_engineer(
    name => ...,
    rdbms => "PostgreSQL",
    user => ...,
    password= > ...
);
$schema->save_to_file; # I forget how the save directory is configured
[download]

Your runtime code:

my $schema = Alzabo::Runtime::Schema->load_from_file( name => ... );

⠤⠤ ⠙⠊⠕⠞⠁⠇⠑⠧⠊

Comment on Re^3: Non-retarded ORMs, and a general ORM discussions. Select or Download Code

Replies are listed 'Best First'.
Re^4: Non-retarded ORMs, and a general ORM discussions. by EvanCarroll (Chaplain) on Jun 16, 2006 at 21:46 UTC
That was what I thought. I got an error, and I didn't do much research on it. No problem though, I'm thinking the DBIx schema loaders, and Rose::DB are better choices, I'm experimenting with them now.. ecarroll@AMD64:~/code/perl/alzabo$ perl -MData::Dumper -MAlzabo::Creat +e::Schema -e'$_= Alzabo::Create::Schema->reverse_engineer(name => q/d +ealermade/,rdbms=> q/PostgreSQL/, user=> q/ecarroll/, password=>q/pas +sword/); print Dumper $_;' Table users already exists in schema Trace begun at /usr/local/share/perl/5.8.7/Alzabo/Create/Table.pm line + 65 Alzabo::Create::Table::set_name(undef, undef) called at /usr/local/sha +re/perl/5.8.7/Alzabo/Create/Table.pm line 39 Alzabo::Create::Table::new(undef, 'schema', 'Alzabo::Create::Schema=HA +SH(0x6012d0)', 'name', 'users') called at /usr/local/share/perl/5.8.7 +/Alzabo/Create/Schema.pm line 139 Alzabo::Create::Schema::make_table('Alzabo::Create::Schema=HASH(0x6012 +d0)', 'name', 'users') called at /usr/local/share/perl/5.8.7/Alzabo/R +DBMSRules/PostgreSQL.pm line 843 Alzabo::RDBMSRules::PostgreSQL::reverse_engineer('Alzabo::RDBMSRules:: +PostgreSQL=HASH(0xd39b10)', 'Alzabo::Create::Schema=HASH(0x6012d0)') +called at /usr/local/share/perl/5.8.7/Alzabo/Create/Schema.pm line 85 Alzabo::Create::Schema::reverse_engineer('Alzabo::Create::Schema', 'na +me', 'dealermade', 'rdbms', 'PostgreSQL', 'user', 'ecarroll', 'passwo +rd', 'password') called at -e line 1 [download] *note password is not going to stay 'password' for long Evan Carroll www.EvanCarroll.com	[reply] [d/l]
Re^5: Non-retarded ORMs, and a general ORM discussions. by diotalevi (Canon) on Jun 16, 2006 at 21:50 UTC
Ask the alzabo email list ⠤⠤ ⠙⠊⠕⠞⠁⠇⠑⠧⠊	[reply]
Re^5: Non-retarded ORMs, and a general ORM discussions. by mman (Novice) on Oct 31, 2006 at 17:52 UTC
Hello, Evan. I got similar problem you had then. Had you chosen ORM from CPAN, that satisfied your requirements? I've found Alzabo is good to try, but I also want persistence. I read about Tangram and SPOPS frameworks, but they doesn't support multiple column foreign keys.	[reply]


Syntactic Confectionery Delight
	PerlMonks