跳转至

Perl 编程中的通用包

原文:https://www . geesforgeks . org/universal-package-in-perl-programming/

UNIVERSAL 是 Perl 5 中的内置包。它也可以被认为是一个基类，派生类可以在其中隐式继承或重写。它提供了几种默认方法，如isa()、can()、VERSION()和DOES()。通用类不能显示在包的 @ISA 变量中。其他方法也可以通过 Perl 或 XS 代码添加到 UNIVERSAL 类中。在程序中使用上述方法，不需要在代码中包含“使用 UNIVERSAL ”语句。

版本()方法

它返回合适的类或包的\(VERSION 变量的值。此方法可以将版本号作为可选参数。如果查询的\)VERSION 不大于或等于参数，此方法将引发异常。

示例: 我们来考虑一下 2.0 版本的模块 Dog

use 5.010;
package Dog 2.0;
use strict;
use warnings;

# constructor
sub new
{
    # the package name 'Dog' is in the default array @_
    # shift will take package name 'Dog' 
    # and assign it to variable 'class'
    my $class = shift;

    # object
    my $self = {
        'name' => shift,
        'breed' => shift
    };

    # blessing self to be object in class
    bless $self, $class;

    # returning object from constructor
    return $self;
}

my $d = new Dog('Sammy','Pug');

say Dog->VERSION();
say $d->VERSION();
say $d->VERSION(0.0);
say $d->VERSION(1.5);
say $d->VERSION(3.0);    # EXCEPTION

输出:

2.0
2.0
2.0
2.0
Dog version 3 required--this is only version 2.0 at /home/4c09f6973dc56e8a558b8be499a040bb.pl line 32.

dos()方法

DOES()方法检查类或对象是否执行特定的角色。当角色的名称传递给此方法时，如果它执行指定的角色，则返回 true(1)，否则返回 false(0)。角色可以被认为是一个类所表现的行为的集合。

示例: 让我们考虑模块/类狗和动物

use 5.010;
package Animal;  

sub new
{
    my $type = shift;           
    my $self = {};               
    return bless $self, $type;    
}

sub MyMethod 
{
   print "Animal::MyMethod called!\n";
}

# class Dog    
package Dog;   

# class Dog inherits from class Animal
@ISA = qw(Animal);    

sub new
{
    my $type = shift;            
    my $self = Animal->new;     
    return bless $self, $type;  
}
sub MyMethod
{
    my $self = shift;

    $self->SUPER::MyMethod();
}

# Driver Code
package main;      
$myObject = Animal->new();
$myObject2 = Dog->new();

# Basic DOES() usage
say Dog->DOES('Animal');
say $myObject->DOES('Animal');
say $myObject2->DOES('Dog');

输出:

1
1
1

can()方法

can()方法接受方法名为字符串。它返回对实现此方法的现有函数的引用，否则它将返回一个 false 值。此方法可以在类、对象或包上调用。如果 can(\(classname)返回 true，则表示存在名为\)classname 的类。这个方法只检查一个类的存在，不评论它的可用性。

例: 我们来考虑一个类 Dog，它有一个叫 bark 的方法，这个方法可以参考如下:

use 5.010;
use strict;
use warnings;

{ 
    package Animal; 
    sub new 
    { 
        bless({}, 
        $_[0]) 

    }
}

{ 
    package Dog; 
    our @ISA = qw(Animal); 
    sub dog { 1 } 
}

# objects
my $dog = Dog->new;
my $animal = Animal->new;

# Basic can() usage
say $animal->can('dog');  # false
say $dog->can('dog');  # true

输出:

Use of uninitialized value in say at /home/fdfdd52de0b7348de191b3d9be3cb44f.pl line 11.
CODE(0x1fc3168)

can()也可以用来检查一个包是否成功实现了特定的功能或方法。

isa()方法

isa()方法接受类的名称或内置类型的名称作为字符串。它可以在类方法、实例方法或对象上调用。如果指定的类或对象是从包派生的，或者是对给定类型的受保护引用，则返回 true。

示例: 假设$doggy 是一个对象(一个散列引用，被祝福到 Dog 类中，从 Animal 类继承而来):

use 5.010;
use strict;
use warnings;

{ 
    package Animal; 
    sub new
    { 
        bless({},
        $_[0]) 
    } 
}

{ 
    package Dog; 
    our @ISA = qw(Animal); 
    sub dog { 1 } 
}

# objects
my $animal = Animal->new;
my $dog = Dog->new;

# basic isa() usage 
say $animal->isa('Animal');  # true
say $dog->isa('Animal');  # true

输出:

1
1
回到顶部