Perl - статьи

       

Quux.pm


package Quux;

#=============================================================================== # REVISION: $Id$ # DESCRIPTION: Test module # AUTHOR: Alexander Simakov, <xdr [dot] box [at] Gmail>

# http://alexander-simakov.blogspot.com/ # LICENSE: Public domain #===============================================================================

use strict; use warnings;

our $VERSION = qw($Revision$) [1];

use Readonly; use English qw( -no_match_vars ); use Carp;

## no critic (RequireCarping)

sub new { my $class = shift;

return bless {}, $class; }

sub foo { my $self = shift; my $file_name = shift; my $var1 = shift; my $var2 = shift; my $flag = shift || $ENV{'FLAG'} || 1;

open my $fh, '>>', $file_name or die "Cannot open file '$file_name': $OS_ERROR";

if ($var1) { print {$fh} $var1; } else { warn 'var1 is not saved!'; }

if ($var2) { print {$fh} $var2; } else { warn 'var2 is not saved!'; }

# This should not happen in practice! close $fh or die "Cannot close file '$file_name': $OS_ERROR";

return 1; }

sub not_tested { my $self = shift;

return; }

1;



Содержание раздела