18 lines
220 B
Perl
18 lines
220 B
Perl
#!/usr/bin/env perl
|
|
|
|
package GuestbookNg::Model::Test;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use experimental qw{signatures};
|
|
|
|
sub new($class) {
|
|
bless {}
|
|
}
|
|
|
|
sub test_model($self, $string) {
|
|
"you've supplied: $string"
|
|
}
|
|
|
|
1;
|