package SomePackage;
use strict; use warnings;
use SomePackage::Auth;
use SomePackage::Client;
use SomePackage::Ticket; 

sub new {
    my $class = shift;
    my $self = {};
   
    SomePackage::Auth->getCredentials;
    $self->{client} = SomePackage::Client->new;
    $self->{ticket} = SomePackage::Ticket->new;

    bless $self, $class;

    return $self;
}

sub createTicket {
    my $self = shift;
    my $class = shift;
    my $project = shift;

   return  $self->{ticket}->createTicket($self, $project);
} 


##</code><code>##

my $packObj = SomePackage->new;
$packObj->createTicket($project);