File: Wudget.pm

package info (click to toggle)
libbadger-perl 0.16-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 2,400 kB
  • sloc: perl: 11,004; makefile: 9
file content (23 lines) | stat: -rw-r--r-- 361 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
# used by t/core/factory.t

package My::Extra::Wudget;

use Badger::Class
    version     => 1,
    base        => 'My::Wodget';

sub name {
    return '<< ' . $_[0]->{name} . ' >>';
}

package My::Extra::Wudgetola;

use Badger::Class
    version     => 1,
    base        => 'My::Extra::Wudget';
    
sub name {
    return '** ' . $_[0]->{name} . ' **';
}

1;