クラスを使ってみる

訳あってperl
新しいのと古いのが混在していて、どこを参照すべきか分からないなぁ…

#!/usr/bin/env perl
use warnings;
use strict;
use Carp;

package Foo;

sub new {
  my $class = shift;
  my $self = { x => 100 };
  return bless $self, $class;
}

sub func {
  my $self = shift;
  print $self->{x} . "\n";
}

package main;

my $obj = new Foo;
$obj->func();