###########################################
# Customers Class
# Mike Schilli, 2013 (m@perlmeister.com)
###########################################
package Customers;
use Moose;

our %USERS = ();

sub sign_up {
  my( $self, $user ) = @_;

  $USERS{ $user->email() } = $user;
}

sub user_find_by_email {
  my( $self, $email ) = @_;

  return exists $USERS{ $email };
}

1;