How do you create a Perl module?

后端 未结 8 1844
醉话见心
醉话见心 2020-12-13 21:03

How do you write a module for Perl? In Python you can use:

# module.py
def helloworld(name):
    print \"Hello, %s\" % name

# main.py
import module
module.         


        
8条回答
  •  不思量自难忘°
    2020-12-13 21:26

    A class:

    # lib/Class.pm
    package Class;
    use Moose;
    
    # define the class
    
    1;
    

    A module that exports functions:

    # lib/A/Module.pm
    package A::Module;
    use strict;
    use warnings;
    use Sub::Exporter -setup => {
        exports => [ qw/foo bar/ ],
    };
    
    sub foo { ... }
    sub bar { ... }
    
    1;
    

    A script that uses these:

    # bin/script.pl
    #!/usr/bin/env perl
    
    use strict;
    use warnings;
    
    use FindBin qw($Bin);
    use lib "$Bin/../lib";
    
    use Class;
    use A::Module qw(foo bar);
    
    
    print Class->new;
    print foo(), bar();
    

提交回复
热议问题