package X;

use Order;

sub doSomething {
  my ($self, $order) = @_; # $order is an Order object
  ...
  $order->some_method(...);
}