91 |
|
|
92 |
Returns just of just unique databases with C<name> and C<prefix>. |
Returns just of just unique databases with C<name> and C<prefix>. |
93 |
|
|
94 |
|
my @dbs = $c->comp('Model::Databases')->list; |
95 |
|
|
96 |
|
You can also return just databases that have C<input> defined (that are not |
97 |
|
empty databases used for agregation) if you add option C<require_input>. |
98 |
|
|
99 |
|
my @db_2 = $c->comp('Model::Databases')->list( require_input => 1 ); |
100 |
|
|
101 |
=cut |
=cut |
102 |
|
|
103 |
sub list { |
sub list { |
104 |
my $self = shift; |
my $self = shift; |
105 |
|
|
106 |
|
my $args = shift; |
107 |
|
|
108 |
my @databases; |
my @databases; |
109 |
|
|
110 |
foreach my $db (keys %{ $self->{databases} }) { |
foreach my $db (keys %{ $self->{databases} }) { |
111 |
my $d = $self->{databases}->{$db} || die; |
my $d = $self->{databases}->{$db} || die; |
112 |
|
|
113 |
|
if ($args->{require_input}) { |
114 |
|
next unless ($d->{input}); |
115 |
|
} |
116 |
|
|
117 |
my $el = { |
my $el = { |
118 |
name => $self->convert( $d->{name} || $db ), |
name => $self->convert( $d->{name} || $db ), |
119 |
prefix => $self->convert( $db ), |
prefix => $self->convert( $db ), |