Shell Programming and Scripting

package Inventory_item;
    sub new {
        my($class) = shift;

        bless {
            "PART_NUM"    => undef,
            "QTY_ON_HAND" => undef
        }, $class;
    }

package main;
   $item = Inventory_item->new();

package Inventory_item;
  
    sub new {
        my($class) = shift;     
}         

sub declare
{
    my $abc = shift;
    print $abc;
}


package main;
 
  my  $item = Inventory_item->new();
  
  $item->declare(3);

#! /usr/bin/perl

use strict;
use warnings;

package Inventory_item;

sub new {
        my ($proto,%args) = @_;           # Make inheritable by checking what we were called as
        my $class = ref($proto) || $proto;# otherwise we cannot extend $class
        my $self = {};
        bless ($self, $class); # return a blessed reference
}

sub declare
{
    my ($self) = shift;
    my $arg= shift;
    $self->{'abc'}=$arg;
    print "$self->{'abc'} is set to $self->{'abc'}\n";

}

sub retrieve
{
    my ($self)=shift;
    my ($param)=shift;
    if (! defined $self->{$param}){
        die ("No such field $param\n");
    }
    else{
        print "$param is set to $self->{$param}\n";

    }
}
package main;

my  $item = Inventory_item->new();
$item->declare(3);
$item->retrieve('abc');

%{"check"} =     
    (header    => [
      #      name                    length  Justify        Field Name in spreadsheet
        qw( _RECORD_ID                     3   1),    #   010-RECORD-ID - (010)         
        qw( M_OR_H                         1   1),    #   010-M-OR-H                    
        qw( SENDER_ID                      4   1),    #   010-SENDER-ID                 
        qw( RESOLVED_DIVISION              5   1),    #   010-RESOLVED-DIVISION         
        qw( DIRECTION                      1   1),    #   010-DIRECTION (I/O)           
        qw( DOCUMENT_TYPE                  3   1),    #   010-DOCUMENT-TYPE           
        qw( RESERVED                       1   1),    #   010-RESERVED                  
        qw( IS_PAPER                       1   1),    #   010-IS-PAPER
        ]);