package Foo;

our $VERSION = '1.0';

use strict;
use warnings;

sub new
{
    my $class = shift();

    my ($arguments) = @_;

    my $self = {};

    bless $self, $class;
}