/ 
Data-CEFACT-Unit-0.01
River stage one • 1 direct dependent • 4 total dependents
/ Data::CEFACT::Unit

NAME

Data::CEFACT::Unit - Data object for CEFACT unit.

SYNOPSIS

use Data::CEFACT::Unit;

my $obj = Data::CEFACT::Unit->new(%params);
my $common_code = $obj->common_code;
my $conversion_factor = $obj->conversion_factor;
my $description = $obj->description;
my $level_category = $obj->level_category;
my $name = $obj->name;
my $status = $obj->status;
my $symbol = $obj->symbol;

METHODS

new

my $obj = Data::CEFACT::Unit->new(%params);

Constructor.

  • common_code

    Common code of unit.

    It's required.

    Default value is undef.

  • conversion_factor

    Conversion factor of unit.

    It's optional.

    Default value is undef.

  • description

    Unit description.

    It's optional.

    Default value is undef.

  • level_category

    Unit level/category.

    It's required.

    Default value is undef.

  • name

    Unit name.

    It's required.

    Default value is undef.

  • status

    Unit status,

    Possible statuses are undef as valid, 'D' as deprecated, 'X' as invalid and '¦' as new.

    It's optional, default value is valid status.

    Default value is undef.

  • symbol

    Unit symbol.

    It's optional.

    Default value is undef.

Returns instance of object.

common_code

my $common_code = $obj->common_code;

Get unit common code.

Returns string.

conversion_factor

my $conversion_factor = $obj->conversion_factor;

Get unit conversion factor.

Returns string.

description

my $description = $obj->description;

Get unit description.

Returns string.

level_category

my $level_category = $obj->level_category;

Get unit level/category.

Returns string.

name

my $name = $obj->name;

Get unit name.

Returns string.

status

my $status = $obj->status;

Get unit status.

Returns string or undef.

symbol

my $symbol = $obj->symbol;

Get unit symbol.

Returns string.

EXAMPLE

use strict;
use warnings;

use Data::CEFACT::Unit;

my $obj = Data::CEFACT::Unit->new(
        'common_code' => 'KGM',
        'conversion_factor' => 'kg',
        'description' => 'A unit of mass equal to one thousand grams.',
        'level_category' => 1,
        'name' => 'kilogram',
        'symbol' => 'kg',
);

# Print out.
print 'Name: '.$obj->name."\n";
print 'Description: '.$obj->description."\n";
print 'Common code: '.$obj->common_code."\n";
print 'Status: '.(! defined $obj->status ? 'valid' : $obj->status)."\n";
print 'Symbol: '.$obj->symbol."\n";
print 'Level/Category: '.$obj->level_category."\n";
print 'Conversion factor: '.$obj->conversion_factor."\n";

# Output:
# Name: kilogram
# Description: A unit of mass equal to one thousand grams.
# Common code: KGM
# Status: valid
# Symbol: kg
# Level/Category: 1
# Conversion factor: kg

DEPENDENCIES

Mo, Mo::utils. Readonly, Unicode::UTF8.

REPOSITORY

https://github.com/michal-josef-spacek/Data-CEFACT-Unit

AUTHOR

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

http://skim.cz

LICENSE AND COPYRIGHT

© 2025 Michal Josef Špaček

BSD 2-Clause License

VERSION

0.01