/ 
Data-Kramerius-0.06
River stage one • 5 direct dependents • 5 total dependents
⭐ Starred 0 GitHub stars
/ Data::Kramerius::Object

NAME

Data::Kramerius::Object - Data object for kramerius instance.

SYNOPSIS

use Data::Kramerius::Object;

my $obj = Data::Kramerius::Object->new(%params);
my $active = $obj->active;
my $id = $obj->id;
my $name = $obj->name;
my $url = $obj->url;
my $version = $obj->version;

METHODS

new

my $obj = Data::Kramerius::Object->new(%params);

Constructor.

Returns instance of object.

  • active

    Flag which means, if project is or not active. It's required.

  • id

    Id of Kramerius system. It's required.

  • name

    Name of Kramerius system. It's required.

  • url

    URL of Kramerius system. It's required.

  • version

    Version of Kramerius system. It's required.

active

my $active = $obj->active;

Get flag about activity of Kramerius system.

Returns 0/1.

id

my $id = $obj->id;

Get id of Kramerius system.

Returns string.

name

my $name = $obj->name;

Get name of Kramerius system.

Returns string.

url

my $url = $obj->url;

Get URL of Kramerius system.

Returns string.

version

my $version = $obj->version;

Get version of Kramerius system.

Returns number.

EXAMPLE

use strict;
use warnings;

use Data::Kramerius::Object;

my $obj = Data::Kramerius::Object->new(
        'active' => 1,
        'id' => 'foo',
        'name' => 'Foo Kramerius',
        'url' => 'https://foo.example.com',
        'version' => 4,
);

# Print out.
print 'Active: '.$obj->active."\n";
print 'Id: '.$obj->id."\n";
print 'Name: '.$obj->name."\n";
print 'URL: '.$obj->url."\n";
print 'Version: '.$obj->version."\n";

# Output:
# Active: 1
# Id: foo
# Name: Foo Kramerius
# URL: https://foo.example.com
# Version: 4

DEPENDENCIES

Mo.

REPOSITORY

https://github.com/michal-josef-spacek/Data-Kramerius

AUTHOR

Michal Josef Špaček mailto:skim@cpan.org

http://skim.cz

LICENSE AND COPYRIGHT

© 2021-2023 Michal Josef Špaček

BSD 2-Clause License

VERSION

0.06