Changeset 2d64c149ac3296b0168c5776a90176b9d3c4a1c0 in xas-model


Ignore:
Timestamp:
02/17/15 10:08:19 (4 years ago)
Author:
Kevin L. Esteb <kevin@…>
Branches:
master
Children:
8f14efda2486086620dae33eba4e05b4cdfa98e1
Parents:
9c6940e2899e7c8beb9361e98bb6daa0d0884fed
git-author:
Kevin L. Esteb <kevin@…> (02/17/15 10:08:19)
git-committer:
Kevin L. Esteb <kevin@…> (02/17/15 10:08:19)
Message:

Did some work on the interface.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lib/XAS/Model/Database.pm

    r51eb11155a755071e75ebabf515931861e5bd0f7 r2d64c149ac3296b0168c5776a90176b9d3c4a1c0  
    1515  exports => { 
    1616    hooks => { 
    17       schema => [ \&schema, 1 ], 
    18       table  => [ \&tables, 1 ], 
    19       tables => [ \&tables, 1 ], 
     17      schema => [ \&_schema, 1 ], 
     18      table  => [ \&_tables, 1 ], 
     19      tables => [ \&_tables, 1 ], 
    2020    } 
    2121  }, 
     
    9494# --------------------------------------------------------------------- 
    9595 
    96 sub tables { 
     96sub _tables { 
    9797    my $self   = shift; 
    9898    my $target = shift; 
     
    100100    my $tables = @_ == 1 ? shift : [ @_ ]; 
    101101 
    102         my $TABLES = $self->class->var('TABLES'); 
    103  
    104     $tables = [ split(DELIMITER, $tables) ] unless (ref($tables) eq ARRAY); 
    105  
    106     foreach my $table (@$tables) { 
    107  
    108         if ($table ne ':all') { 
    109  
    110             $self->class->constant($table => $TABLES->{$table}); 
    111  
    112         } else { 
    113  
    114             while (my ($key, $value) = each(%{$TABLES->{tables}})) { 
    115  
    116                 $self->class->constant($key => $value); 
    117  
    118             } 
    119  
    120             last; 
    121  
    122         } 
    123  
    124     } 
     102    $self->tables($tables); 
    125103 
    126104    return $self; 
     
    128106} 
    129107 
    130 sub schema { 
     108sub _schema { 
    131109    my $self    = shift; 
    132110    my $target  = shift; 
     
    134112    my $schemas = @_ == 1 ? shift : [ @_ ]; 
    135113 
     114    $self->schema($schemas); 
     115 
     116    return $self; 
     117 
     118} 
     119 
     120# --------------------------------------------------------------------- 
     121# Methods 
     122# --------------------------------------------------------------------- 
     123 
     124sub tables { 
     125    my $self = shift; 
     126    my ($tables) = $self->validate_params(\@_, [1]); 
     127 
     128        my $TABLES = $self->class->var('TABLES'); 
     129 
     130    $tables = [ split(DELIMITER, $tables) ] unless (ref($tables) eq ARRAY); 
     131 
     132    foreach my $table (@$tables) { 
     133 
     134        if ($table ne ':all') { 
     135 
     136            $self->class->constant($table => $TABLES->{$table}); 
     137 
     138        } else { 
     139 
     140            while (my ($key, $value) = each(%{$TABLES->{tables}})) { 
     141 
     142                $self->class->constant($key => $value); 
     143 
     144            } 
     145 
     146            last; 
     147 
     148        } 
     149 
     150    } 
     151 
     152} 
     153 
     154sub schemas { 
     155    my $self = shift; 
     156    my ($schemas) = $self->validate_params(\@_, [1]); 
     157 
    136158    $schemas = [ split(DELIMITER, $schemas) ] unless (ref($schemas) eq ARRAY); 
    137159 
     
    164186    } 
    165187 
    166     return $self; 
    167  
    168 } 
    169  
    170 # --------------------------------------------------------------------- 
    171 # Methods 
    172 # --------------------------------------------------------------------- 
     188} 
    173189 
    174190sub filter_loaded_credentials { 
Note: See TracChangeset for help on using the changeset viewer.