File: TestNonOO.pm

package info (click to toggle)
libmodule-bundled-files-perl 0.03-4
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 168 kB
  • sloc: perl: 301; makefile: 2
file content (21 lines) | stat: -rw-r--r-- 269 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#!/usr/bin/perl -w
package TestNonOO;
use strict;

use Module::Bundled::Files;

sub new()
{
    my $class = shift;
    my $proto = ref($class) || $class;
    my $self = {};
    bless $self, $class;
    return $self;
}

sub donothing()
{
    return 'nothing done';
}

1;