Oarm.pm6

unit module Oarm:ver<0.0.1>:auth<Maroš (maros@k-1.com)>;

use Oarm::Types;
use Oarm::Exception;
use Oarm::Sql;
use Oarm::ResultSet;
use Oarm::Column;
use Oarm::Table;

# multi trait_mod:<is>(Mu:U $class, :$oarm_tabe) is export {
#     Oarm::X::Class.new(
#         class => $class.^name,
#         error => 'Cannot extend (use "is Oarm::Table(\'table\')" instead )'
#     ).throw;
# }

multi trait_mod:<is>(Mu:U $class, :$oarm_table!) is export {
    say "[C] CLASS Trait:" ~ $class.^name ~ " for table ";
    my $classHOW = $class.HOW;
    $classHOW.add_role($class, Oarm::Table);
    $classHOW.^mixin: Oarm::TableHOW;
    $classHOW.oarm_init_table($oarm_table.hash);
}

multi trait_mod:<is>(Attribute $a, :$has_one!) is export  {
    say "[C][A] HAS ONE Trait: " ~ $a;
    #$a.^mixin: Oarm::HasOneHOW;
    #$a.oarm_init_hasone($column.hash);
}

multi trait_mod:<is>(Attribute $a, :$column!) is export  {
    say "[C][A] COLUMN Trait: " ~ $a;
    $a.^mixin: Oarm::ColumnHOW;
    $a.oarm_init_column($column.hash);
}