2021-12-04 02:26:25 -05:00
|
|
|
#!/usr/bin/env perl
|
|
|
|
|
|
|
|
|
|
package GuestbookNg::Model::Test;
|
|
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
|
use warnings;
|
|
|
|
|
use experimental qw{signatures};
|
|
|
|
|
|
|
|
|
|
sub new($class) {
|
2021-12-04 03:47:55 -05:00
|
|
|
bless {}
|
2021-12-04 02:26:25 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub test_model($self, $string) {
|
|
|
|
|
"you've supplied: $string"
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
1;
|
