blob: c1e1852cf589484e68caf0b1a20e5eb6805b38bc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
package MGA::Mirrors::Model::Mirrors;
use Moose;
use namespace::autoclean;
extends 'MGA::Mirrors::DB', 'Catalyst::Model';
=head1 NAME
MGA::Mirrors::Model::Mirrors - Catalyst Model
=head1 DESCRIPTION
Catalyst Model.
=head1 AUTHOR
Olivier Thauvin
=head1 LICENSE
This library is free software. You can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
sub new {
my ($class) = @_;
return bless(MGA::Mirrors::DB->new(), $class);
}
__PACKAGE__->meta->make_immutable(inline_constructor => 0);
1;
|
