Модуль Perl

Приклад

sub hello { "Hello, world!\n" }
print hello();

print "Hello, world!\n";

в процедурному стилі

#!/usr/bin/perl
# Підключення модуля та імпорт всіх його публічних функцій в простір назв програми 

use Hello::World; # підключення модуля

print hello();             # друкує з модуля "Hello, world!\n"
print hello("Milky Way");  # друкує "Hello, Milky Way!\n"

package Hello::World; # Назва модуля й одночасно простір назв, де будуть знаходиться всі об'єкти модуля
 
use strict;   # включення перевірки, що всі зміні попередньо визначені та мають початкові значення
use warnings; # показувати всі попередження компілятора - зазвичай, вони не відображаються, так як 
              # вважається що виконується скрипт користувача
our $VERSION = '1.00'; # версія модуля, зберігається в $ModuleName::VERSION
use base 'Exporter';   # підключення механізму експорту назв об'єктів модуля в простір програми
our @EXPORT = qw(hello); # в масиві перераховуємо назви, які експортуємо 

# Строки, що починаються із символу "=" є ознакою, що далі пішов текст документації 
# в форматі POD, до стрічки, яка має починатись з "=cut"

=head1 NAME
  Hello::World - An encapsulation of a common output message

=head1 SYNOPSIS
  use Hello::World;
  print hello();
  print hello("Milky Way");

=head1 DESCRIPTION

Це процедурний модуль, який друкує привітання тому, кому вказано 
в параметрі процедури. Інакше - просто "Hello, world!"

=head2 Functions
    Доступні наступні функції 

=head3 hello
    print hello();
    print hello($target);

Друкує привітання. Якщо C<$target> пусте, то замість нього використовується "world".

=cut
    # безпосередньо сам код функції hello()
sub hello {
    my $target = shift;
    $target = 'world' unless defined $target;
    
    return "Hello, $target!\n";
}
=head1 AUTHOR
   Joe Hacker <[email protected]>
=cut

# Важливо! Кожний модуль Perl має повертати ознаку, що він успішно завантажений.
#  Це будь-яке значення, яке не "0" та не пусте. Інакше він не буде завантажений.

1;

в об'єктно-орієнтовному стилі

#!/usr/bin/perl

use Hello::World;
my $hello = Hello::World->new;
   $hello->print;                # друкує "Hello, world!\n"
   $hello->target("Milky Way");
   $hello->print;                # друкує "Hello, Milky Way!\n"

my $greeting = Hello::World->new(target => "Pittsburgh"); # створюємо інший об'єкт
   $greeting->print;             # надрукує "Hello, Pittsburgh!\n"
   $hello->print;                # все ще надрукує "Hello, Milky Way!\n"

# Perl не має окремого визначення класу, на зразок зарезервованого слова 'class',
#   простір назв і є клас.
package Hello::World;

use strict;
use warnings;
our $VERSION = "1.00";

=head1 NAME
Hello::World - узагальнене привітання
 
=head1 SYNOPSIS
    use Hello::World;
    my $hello = Hello::World->new();
    $hello->print;
 
=head1 DESCRIPTION
  Об'єктно-орієнтована бібліотека, що надає класичне "Hello word!" повідомлення.
 
=head2 Methods
 
=head3 new
    my $hello = Hello::World->new();
    my $hello = Hello::World->new( target => $target );

Екземпляри об'єкту, що містять привітання. Якщо C<$target> визначено,
  то воно передається в C<< $hello->target >>.
 
=cut
 
# Конструктор об'єкта зазвичай має назву new(). Проте їм може бути будь-який метод 
#  і конструкторів може бути декілька
 
sub new {
 my($class, %args) = @_;
 
 my $self = bless({}, $class);
 
 my $target = exists $args{target} ? $args{target} : "world";
 $self->{target} = $target;
 
 return $self;
}
 
 
=head3 target
 
    my $target = $hello->target;
    $hello->target($target);
 
Встановлює та повертає значення повідомлення.
=cut
 
sub target {
  my $self = shift;
  if( @_ ) {
      my $target = shift;
      $self->{target} = $target;
  }

  return $self->{target};
}
  
=head3 to_string

    my $greeting = $hello->to_string;

Повертає $greeting як строку.
=cut
 
sub to_string {
 my $self = shift;
 return "Hello, $self->{target}!";
}
 
=head3 print
    $hello->print;
Виводить привітання в стандартний потік STDOUT 
=cut
sub print {
 my $self = shift;
 print $self->to_string(), "\n";
}
 
=head1 AUTHOR
   Joe Hacker <[email protected]>
=cut

1;

Посилання