################################################################################

# Package MyDictionary::DBI
# 
# Represents object oriented form of my Database

package MyDictionary::DBI;
use base "Class::DBI::SQLite";
MyDictionary::DBI->set_db('Main', "dbi:SQLite:dbname=Dictionary.db");

################################################################################

# Package MyDictionary::Engword
# 
# Represent englishword table

package MyDictionary::Engword;
use base "MyDictionary::DBI";

MyDictionary::Engword->set_up_table("englishword");
MyDictionary::Engword->has_many('translations',['MyDictionary::En_To_Sk' => 'skword'], 'engword');


################################################################################

# Package MyDictionary::Skword
# 
# Represent skwordmeaning table

package MyDictionary::Skword;
use base "MyDictionary::DBI";

MyDictionary::Skword->set_up_table("skwordmeaning");
MyDictionary::Skword->has_many('translations',['MyDictionary::En_To_Sk' => 'engword'], 'skword');


################################################################################

# Package MyDictionary::En_To_Sk
#
# Represents en_to_sk table

package MyDictionary::En_To_Sk;
use base "MyDictionary::DBI";

MyDictionary::En_To_Sk->set_up_table('en_to_sk');
MyDictionary::En_To_Sk->has_a('eng_id' => "MyDictionary::Engword");
MyDictionary::En_To_Sk->has_a('sk_id' => "MyDictionary::Skword");

################################################################################