#!/usr/bin/env perl

package Mernok;

use Dolgozo;

our @ISA = qw(Dolgozo);

sub new {
    my($class) = @_;
	
    my $self = $class->SUPER::new(@_[1], @_[2], @_[3]);
    $self->{_diploma} = undef;

    bless $self, $class;
    return $self;
}

sub beallitDiploma {
    my ( $self, $diploma ) = @_;
    $self->{_diploma} = $diploma if defined($diploma);
}

sub lekerDiploma {
    my( $self) = @_;
    return $self->{_diploma};
}

1;