guestbook-ng/lib/GuestbookNg/Model/Test.pm

18 lines
220 B
Perl
Raw Normal View History

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;