package EmpHoras;

@ISA=("Empleado");

sub new
  {
    my($pkg, $nombre, $rut, $valor_hora, $num_horas) = @_;

    my $e=$pkg->alloc($nombre, $rut);

    $e->{valor_hora}=$valor_hora;
    $e->{num_horas}=$num_horas;
  }

sub sueldo
  {
    my $e=shift;

    return $e->{num_horas} * $e->{valor_hora};
  }

sub pone_horas
  {
    my($e, $h) = @_;

    $e->{num_horas}=$h;
  }

1;