joelind-state_machine 0.8.1

data/lib/state_machine/integrations/sequel.rb

@@ -0,0 +1,322 @@
+module StateMachine
+  module Integrations #:nodoc:
+    # Adds support for integrating state machines with Sequel models.
+    # 
+    # == Examples
+    # 
+    # Below is an example of a simple state machine defined within a
+    # Sequel model:
+    # 
+    #   class Vehicle < Sequel::Model
+    #     state_machine :initial => :parked do
+    #       event :ignite do
+    #         transition :parked => :idling
+    #       end
+    #     end
+    #   end
+    # 
+    # The examples in the sections below will use the above class as a
+    # reference.
+    # 
+    # == Actions
+    # 
+    # By default, the action that will be invoked when a state is transitioned
+    # is the +save+ action.  This will cause the resource to save the changes
+    # made to the state machine's attribute.  *Note* that if any other changes
+    # were made to the resource prior to transition, then those changes will
+    # be made as well.
+    # 
+    # For example,
+    # 
+    #   vehicle = Vehicle.create          # => #<Vehicle @values={:state=>"parked", :name=>nil, :id=>1}>
+    #   vehicle.name = 'Ford Explorer'
+    #   vehicle.ignite                    # => true
+    #   vehicle.refresh                   # => #<Vehicle @values={:state=>"idling", :name=>"Ford Explorer", :id=>1}>
+    # 
+    # == Events
+    # 
+    # As described in StateMachine::InstanceMethods#state_machine, event
+    # attributes are created for every machine that allow transitions to be
+    # performed automatically when the object's action (in this case, :save)
+    # is called.
+    # 
+    # In Sequel, these automated events are run in the following order:
+    # * before validation - Run before callbacks and persist new states, then validate
+    # * before save - If validation was skipped, run before callbacks and persist new states, then save
+    # * after save - Run after callbacks
+    # 
+    # For example,
+    # 
+    #   vehicle = Vehicle.create          # => #<Vehicle @values={:state=>"parked", :name=>nil, :id=>1}>
+    #   vehicle.state_event               # => nil
+    #   vehicle.state_event = 'invalid'
+    #   vehicle.valid?                    # => false
+    #   vehicle.errors.full_messages      # => ["state_event is invalid"]
+    #   
+    #   vehicle.state_event = 'ignite'
+    #   vehicle.valid?                    # => true
+    #   vehicle.save                      # => #<Vehicle @values={:state=>"idling", :name=>nil, :id=>1}>
+    #   vehicle.state                     # => "idling"
+    #   vehicle.state_event               # => nil
+    # 
+    # Note that this can also be done on a mass-assignment basis:
+    # 
+    #   vehicle = Vehicle.create(:state_event => 'ignite')  # => #<Vehicle @values={:state=>"idling", :name=>nil, :id=>1}>
+    #   vehicle.state                                       # => "idling"
+    # 
+    # === Security implications
+    # 
+    # Beware that public event attributes mean that events can be fired
+    # whenever mass-assignment is being used.  If you want to prevent malicious
+    # users from tampering with events through URLs / forms, the attribute
+    # should be protected like so:
+    # 
+    #   class Vehicle < Sequel::Model
+    #     set_restricted_columns :state_event
+    #     # set_allowed_columns ... # Alternative technique
+    #     
+    #     state_machine do
+    #       ...
+    #     end
+    #   end
+    # 
+    # If you want to only have *some* events be able to fire via mass-assignment,
+    # you can build two state machines (one public and one protected) like so:
+    # 
+    #   class Vehicle < Sequel::Model
+    #     set_restricted_columns :state_event # Prevent access to events in the first machine
+    #     
+    #     state_machine do
+    #       # Define private events here
+    #     end
+    #     
+    #     # Allow both machines to share the same state
+    #     state_machine :public_state, :attribute => :state do
+    #       # Define public events here
+    #     end
+    #   end
+    # 
+    # == Transactions
+    # 
+    # In order to ensure that any changes made during transition callbacks
+    # are rolled back during a failed attempt, every transition is wrapped
+    # within a transaction.
+    # 
+    # For example,
+    # 
+    #   class Message < Sequel::Model
+    #   end
+    #   
+    #   Vehicle.state_machine do
+    #     before_transition do |transition|
+    #       Message.create(:content => transition.inspect)
+    #       false
+    #     end
+    #   end
+    #   
+    #   vehicle = Vehicle.create      # => #<Vehicle @values={:state=>"parked", :name=>nil, :id=>1}>
+    #   vehicle.ignite                # => false
+    #   Message.count                 # => 0
+    # 
+    # *Note* that only before callbacks that halt the callback chain and
+    # failed attempts to save the record will result in the transaction being
+    # rolled back.  If an after callback halts the chain, the previous result
+    # still applies and the transaction is *not* rolled back.
+    # 
+    # To turn off transactions:
+    # 
+    #   class Vehicle < Sequel::Model
+    #     state_machine :initial => :parked, :use_transactions => false do
+    #       ...
+    #     end
+    #   end
+    # 
+    # == Validation errors
+    # 
+    # If an event fails to successfully fire because there are no matching
+    # transitions for the current record, a validation error is added to the
+    # record's state attribute to help in determining why it failed and for
+    # reporting via the UI.
+    # 
+    # For example,
+    # 
+    #   vehicle = Vehicle.create(:state => 'idling')  # => #<Vehicle @values={:state=>"parked", :name=>nil, :id=>1}>
+    #   vehicle.ignite                                # => false
+    #   vehicle.errors.full_messages                  # => ["state cannot transition via \"ignite\""]
+    # 
+    # If an event fails to fire because of a validation error on the record and
+    # *not* because a matching transition was not available, no error messages
+    # will be added to the state attribute.
+    # 
+    # == Scopes
+    # 
+    # To assist in filtering models with specific states, a series of class
+    # methods are defined on the model for finding records with or without a
+    # particular set of states.
+    # 
+    # These named scopes are the functional equivalent of the following
+    # definitions:
+    # 
+    #   class Vehicle < Sequel::Model
+    #     class << self
+    #       def with_states(*states)
+    #         filter(:state => states)
+    #       end
+    #       alias_method :with_state, :with_states
+    #       
+    #       def without_states(*states)
+    #         filter(~{:state => states})
+    #       end
+    #       alias_method :without_state, :without_states
+    #     end
+    #   end
+    # 
+    # *Note*, however, that the states are converted to their stored values
+    # before being passed into the query.
+    # 
+    # Because of the way scopes work in Sequel, they can be chained like so:
+    # 
+    #   Vehicle.with_state(:parked).order(:id.desc)
+    # 
+    # == Callbacks
+    # 
+    # All before/after transition callbacks defined for Sequel resources
+    # behave in the same way that other Sequel hooks behave.  Rather than
+    # passing in the record as an argument to the callback, the callback is
+    # instead bound to the object and evaluated within its context.
+    # 
+    # For example,
+    # 
+    #   class Vehicle < Sequel::Model
+    #     state_machine :initial => :parked do
+    #       before_transition any => :idling do
+    #         put_on_seatbelt
+    #       end
+    #       
+    #       before_transition do |transition|
+    #         # log message
+    #       end
+    #       
+    #       event :ignite do
+    #         transition :parked => :idling
+    #       end
+    #     end
+    #     
+    #     def put_on_seatbelt
+    #       ...
+    #     end
+    #   end
+    # 
+    # Note, also, that the transition can be accessed by simply defining
+    # additional arguments in the callback block.
+    module Sequel
+      # The default options to use for state machines using this integration
+      class << self; attr_reader :defaults; end
+      @defaults = {:action => :save}
+      
+      # Should this integration be used for state machines in the given class?
+      # Classes that include Sequel::Model will automatically use the Sequel
+      # integration.
+      def self.matches?(klass)
+        defined?(::Sequel::Model) && klass <= ::Sequel::Model
+      end
+      
+      # Loads additional files specific to Sequel
+      def self.extended(base) #:nodoc:
+        require 'sequel/extensions/inflector' if ::Sequel.const_defined?('VERSION') && ::Sequel::VERSION >= '2.12.0'
+      end
+      
+      # Forces the change in state to be recognized regardless of whether the
+      # state value actually changed
+      def write(object, attribute, value)
+        result = super
+        column = self.attribute.to_sym
+        object.changed_columns << column if attribute == :state && owner_class.columns.include?(column) && !object.changed_columns.include?(column)
+        result
+      end
+      
+      # Adds a validation error to the given object
+      def invalidate(object, attribute, message, values = [])
+        object.errors.add(self.attribute(attribute), generate_message(message, values))
+      end
+      
+      # Resets any errors previously added when invalidating the given object
+      def reset(object)
+        object.errors.clear
+      end
+      
+      protected
+        # Defines an initialization hook into the owner class for setting the
+        # initial state of the machine *before* any attributes are set on the
+        # object
+        def define_state_initializer
+          @instance_helper_module.class_eval <<-end_eval, __FILE__, __LINE__
+            # Hooks in to attribute initialization to set the states *prior*
+            # to the attributes being set
+            def set(hash, *args)
+              if new? && !@initialized_state_machines
+                @initialized_state_machines = true
+                
+                ignore = setter_methods(nil, nil).map {|setter| setter.chop.to_sym} & (hash ? hash.keys.map {|attribute| attribute.to_sym} : [])
+                initialize_state_machines(:dynamic => false, :ignore => ignore)
+                result = super
+                initialize_state_machines(:dynamic => true, :ignore => ignore)
+                result
+              else
+                super
+              end
+            end
+          end_eval
+        end
+        
+        # Skips defining reader/writer methods since this is done automatically
+        def define_state_accessor
+          name = self.name
+          owner_class.validates_each(attribute) do |record, attr, value|
+            machine = record.class.state_machine(name)
+            machine.invalidate(record, :state, :invalid) unless machine.states.match(record)
+          end
+        end
+        
+        # Adds hooks into validation for automatically firing events
+        def define_action_helpers
+          if super && action == :save
+            @instance_helper_module.class_eval do
+              define_method(:valid?) do |*args|
+                self.class.state_machines.fire_event_attributes(self, :save, false) { super(*args) }
+              end
+            end
+          end
+        end
+        
+        # Creates a scope for finding records *with* a particular state or
+        # states for the attribute
+        def create_with_scope(name)
+          attribute = self.attribute
+          lambda {|model, values| model.filter(attribute.to_sym => values)}
+        end
+        
+        # Creates a scope for finding records *without* a particular state or
+        # states for the attribute
+        def create_without_scope(name)
+          attribute = self.attribute
+          lambda {|model, values| model.filter(~{attribute.to_sym => values})}
+        end
+        
+        # Runs a new database transaction, rolling back any changes if the
+        # yielded block fails (i.e. returns false).
+        def transaction(object)
+          object.db.transaction {raise ::Sequel::Error::Rollback unless yield}
+        end
+        
+        # Creates a new callback in the callback chain, always ensuring that
+        # it's configured to bind to the object as this is the convention for
+        # Sequel callbacks
+        def add_callback(type, options, &block)
+          options[:bind_to_object] = true
+          options[:terminator] = @terminator ||= lambda {|result| result == false}
+          super
+        end
+    end
+  end
+end

data/lib/state_machine/machine.rb

@@ -0,0 +1,1467 @@
+require 'state_machine/extensions'
+require 'state_machine/assertions'
+require 'state_machine/integrations'
+
+require 'state_machine/state'
+require 'state_machine/event'
+require 'state_machine/callback'
+require 'state_machine/node_collection'
+require 'state_machine/state_collection'
+require 'state_machine/event_collection'
+require 'state_machine/matcher_helpers'
+
+module StateMachine
+  # Represents a state machine for a particular attribute.  State machines
+  # consist of states, events and a set of transitions that define how the
+  # state changes after a particular event is fired.
+  # 
+  # A state machine will not know all of the possible states for an object
+  # unless they are referenced *somewhere* in the state machine definition.
+  # As a result, any unused states should be defined with the +other_states+
+  # or +state+ helper.
+  # 
+  # == Actions
+  # 
+  # When an action is configured for a state machine, it is invoked when an
+  # object transitions via an event.  The success of the event becomes
+  # dependent on the success of the action.  If the action is successful, then
+  # the transitioned state remains persisted.  However, if the action fails
+  # (by returning false), the transitioned state will be rolled back.
+  # 
+  # For example,
+  # 
+  #   class Vehicle
+  #     attr_accessor :fail, :saving_state
+  #     
+  #     state_machine :initial => :parked, :action => :save do
+  #       event :ignite do
+  #         transition :parked => :idling
+  #       end
+  #       
+  #       event :park do
+  #         transition :idling => :parked
+  #       end
+  #     end
+  #     
+  #     def save
+  #       @saving_state = state
+  #       fail != true
+  #     end
+  #   end
+  #   
+  #   vehicle = Vehicle.new     # => #<Vehicle:0xb7c27024 @state="parked">
+  #   vehicle.save              # => true
+  #   vehicle.saving_state      # => "parked" # The state was "parked" was save was called
+  #   
+  #   # Successful event
+  #   vehicle.ignite            # => true
+  #   vehicle.saving_state      # => "idling" # The state was "idling" when save was called
+  #   vehicle.state             # => "idling"
+  #   
+  #   # Failed event
+  #   vehicle.fail = true
+  #   vehicle.park              # => false
+  #   vehicle.saving_state      # => "parked"
+  #   vehicle.state             # => "idling"
+  # 
+  # As shown, even though the state is set prior to calling the +save+ action
+  # on the object, it will be rolled back to the original state if the action
+  # fails.  *Note* that this will also be the case if an exception is raised
+  # while calling the action.
+  # 
+  # === Indirect transitions
+  # 
+  # In addition to the action being run as the _result_ of an event, the action
+  # can also be used to run events itself.  For example, using the above as an
+  # example:
+  # 
+  #   vehicle = Vehicle.new           # => #<Vehicle:0xb7c27024 @state="parked">
+  #   
+  #   vehicle.state_event = 'ignite'
+  #   vehicle.save                    # => true
+  #   vehicle.state                   # => "idling"
+  #   vehicle.state_event             # => nil
+  # 
+  # As can be seen, the +save+ action automatically invokes the event stored in
+  # the +state_event+ attribute (<tt>:ignite</tt> in this case).
+  # 
+  # One important note about using this technique for running transitions is
+  # that if the class in which the state machine is defined *also* defines the
+  # action being invoked (and not a superclass), then it must manually run the
+  # StateMachine hook that checks for event attributes.
+  # 
+  # For example, in ActiveRecord, DataMapper, and Sequel, the default action
+  # (+save+) is already defined in a base class.  As a result, when a state
+  # machine is defined in a model / resource, StateMachine can automatically
+  # hook into the +save+ action.
+  # 
+  # On the other hand, the Vehicle class from above defined its own +save+
+  # method (and there is no +save+ method in its superclass).  As a result, it
+  # must be modified like so:
+  # 
+  #     def save
+  #       self.class.state_machines.fire_event_attributes(self, :save) do
+  #         @saving_state = state
+  #         fail != true
+  #       end
+  #     end
+  # 
+  # This will add in the functionality for firing the event stored in the
+  # +state_event+ attribute.
+  # 
+  # == Callbacks
+  # 
+  # Callbacks are supported for hooking before and after every possible
+  # transition in the machine.  Each callback is invoked in the order in which
+  # it was defined.  See StateMachine::Machine#before_transition and
+  # StateMachine::Machine#after_transition for documentation on how to define
+  # new callbacks.
+  # 
+  # *Note* that callbacks only get executed within the context of an event.  As
+  # a result, if a class has an initial state when it's created, any callbacks
+  # that would normally get executed when the object enters that state will
+  # *not* get triggered.
+  # 
+  # For example,
+  # 
+  #   class Vehicle
+  #     state_machine :initial => :parked do
+  #       after_transition all => :parked do
+  #         raise ArgumentError
+  #       end
+  #       ...
+  #     end
+  #   end
+  #   
+  #   vehicle = Vehicle.new   # => #<Vehicle id: 1, state: "parked">
+  #   vehicle.save            # => true (no exception raised)
+  # 
+  # If you need callbacks to get triggered when an object is created, this
+  # should be done by either:
+  # * Use a <tt>before :save</tt> or equivalent hook, or
+  # * Set an initial state of nil and use the correct event to create the
+  #   object with the proper state, resulting in callbacks being triggered and
+  #   the object getting persisted
+  # 
+  # === Canceling callbacks
+  # 
+  # Callbacks can be canceled by throwing :halt at any point during the
+  # callback.  For example,
+  # 
+  #   ...
+  #   throw :halt
+  #   ...
+  # 
+  # If a +before+ callback halts the chain, the associated transition and all
+  # later callbacks are canceled.  If an +after+ callback halts the chain,
+  # the later callbacks are canceled, but the transition is still successful.
+  # 
+  # *Note* that if a +before+ callback fails and the bang version of an event
+  # was invoked, an exception will be raised instead of returning false.  For
+  # example,
+  # 
+  #   class Vehicle
+  #     state_machine :initial => :parked do
+  #       before_transition any => :idling, :do => lambda {|vehicle| throw :halt}
+  #       ...
+  #     end
+  #   end
+  #   
+  #   vehicle = Vehicle.new
+  #   vehicle.park        # => false
+  #   vehicle.park!       # => StateMachine::InvalidTransition: Cannot transition state via :park from "idling"
+  # 
+  # == Observers
+  # 
+  # Observers, in the sense of external classes and *not* Ruby's Observable
+  # mechanism, can hook into state machines as well.  Such observers use the
+  # same callback api that's used internally.
+  # 
+  # Below are examples of defining observers for the following state machine:
+  # 
+  #   class Vehicle
+  #     state_machine do
+  #       event :park do
+  #         transition :idling => :parked
+  #       end
+  #       ...
+  #     end
+  #     ...
+  #   end
+  # 
+  # Event/Transition behaviors:
+  # 
+  #   class VehicleObserver
+  #     def self.before_park(vehicle, transition)
+  #       logger.info "#{vehicle} instructed to park... state is: #{transition.from}, state will be: #{transition.to}"
+  #     end
+  #     
+  #     def self.after_park(vehicle, transition, result)
+  #       logger.info "#{vehicle} instructed to park... state was: #{transition.from}, state is: #{transition.to}"
+  #     end
+  #     
+  #     def self.before_transition(vehicle, transition)
+  #       logger.info "#{vehicle} instructed to #{transition.event}... #{transition.attribute} is: #{transition.from}, #{transition.attribute} will be: #{transition.to}"
+  #     end
+  #     
+  #     def self.after_transition(vehicle, transition)
+  #       logger.info "#{vehicle} instructed to #{transition.event}... #{transition.attribute} was: #{transition.from}, #{transition.attribute} is: #{transition.to}"
+  #     end
+  #   end
+  #   
+  #   Vehicle.state_machine do
+  #     before_transition :on => :park, :do => VehicleObserver.method(:before_park)
+  #     before_transition VehicleObserver.method(:before_transition)
+  #     
+  #     after_transition :on => :park, :do => VehicleObserver.method(:after_park)
+  #     after_transition VehicleObserver.method(:after_transition)
+  #   end
+  # 
+  # One common callback is to record transitions for all models in the system
+  # for auditing/debugging purposes.  Below is an example of an observer that
+  # can easily automate this process for all models:
+  # 
+  #   class StateMachineObserver
+  #     def self.before_transition(object, transition)
+  #       Audit.log_transition(object.attributes)
+  #     end
+  #   end
+  #   
+  #   [Vehicle, Switch, Project].each do |klass|
+  #     klass.state_machines.each do |attribute, machine|
+  #       machine.before_transition StateMachineObserver.method(:before_transition)
+  #     end
+  #   end
+  # 
+  # Additional observer-like behavior may be exposed by the various integrations
+  # available.  See below for more information on integrations.
+  # 
+  # == Overriding instance / class methods
+  # 
+  # Hooking in behavior to the generated instance / class methods from the
+  # state machine, events, and states is very simple because of the way these
+  # methods are generated on the class.  Using the class's ancestors, the
+  # original generated method can be referred to via +super+.  For example,
+  # 
+  #   class Vehicle
+  #     state_machine do
+  #       event :park do
+  #         ...
+  #       end
+  #     end
+  #     
+  #     def park(*args)
+  #       logger.info "..."
+  #       super
+  #     end
+  #   end
+  # 
+  # In the above example, the +park+ instance method that's generated on the
+  # Vehicle class (by the associated event) is overridden with custom behavior.
+  # Once this behavior is complete, the original method from the state machine
+  # is invoked by simply calling +super+.
+  # 
+  # The same technique can be used for +state+, +state_name+, and all other
+  # instance *and* class methods on the Vehicle class.
+  # 
+  # == Integrations
+  # 
+  # By default, state machines are library-agnostic, meaning that they work
+  # on any Ruby class and have no external dependencies.  However, there are
+  # certain libraries which expose additional behavior that can be taken
+  # advantage of by state machines.
+  # 
+  # This library is built to work out of the box with a few popular Ruby
+  # libraries that allow for additional behavior to provide a cleaner and
+  # smoother experience.  This is especially the case for objects backed by a
+  # database that may allow for transactions, persistent storage,
+  # search/filters, callbacks, etc.
+  # 
+  # When a state machine is defined for classes using any of the above libraries,
+  # it will try to automatically determine the integration to use (Agnostic,
+  # ActiveRecord, DataMapper, or Sequel) based on the class definition.  To
+  # see how each integration affects the machine's behavior, refer to all
+  # constants defined under the StateMachine::Integrations namespace.
+  class Machine
+    include Assertions
+    include MatcherHelpers
+    
+    class << self
+      # Attempts to find or create a state machine for the given class.  For
+      # example,
+      # 
+      #   StateMachine::Machine.find_or_create(Vehicle)
+      #   StateMachine::Machine.find_or_create(Vehicle, :initial => :parked)
+      #   StateMachine::Machine.find_or_create(Vehicle, :status)
+      #   StateMachine::Machine.find_or_create(Vehicle, :status, :initial => :parked)
+      # 
+      # If a machine of the given name already exists in one of the class's
+      # superclasses, then a copy of that machine will be created and stored
+      # in the new owner class (the original will remain unchanged).
+      def find_or_create(owner_class, *args, &block)
+        options = args.last.is_a?(Hash) ? args.pop : {}
+        name = args.first || :state
+        
+        # Find an existing machine
+        if owner_class.respond_to?(:state_machines) && machine = owner_class.state_machines[name]
+          # Only create a new copy if changes are being made to the machine in
+          # a subclass
+          if machine.owner_class != owner_class && (options.any? || block_given?)
+            machine = machine.clone
+            machine.initial_state = options[:initial] if options.include?(:initial)
+            machine.owner_class = owner_class
+          end
+          
+          # Evaluate DSL
+          machine.instance_eval(&block) if block_given?
+        else
+          # No existing machine: create a new one
+          machine = new(owner_class, name, options, &block)
+        end
+        
+        machine
+      end
+      
+      # Draws the state machines defined in the given classes using GraphViz.
+      # The given classes must be a comma-delimited string of class names.
+      # 
+      # Configuration options:
+      # * <tt>:file</tt> - A comma-delimited string of files to load that
+      #   contain the state machine definitions to draw
+      # * <tt>:path</tt> - The path to write the graph file to
+      # * <tt>:format</tt> - The image format to generate the graph in
+      # * <tt>:font</tt> - The name of the font to draw state names in
+      def draw(class_names, options = {})
+        raise ArgumentError, 'At least one class must be specified' unless class_names && class_names.split(',').any?
+        
+        # Load any files
+        if files = options.delete(:file)
+          files.split(',').each {|file| require file}
+        end
+        
+        class_names.split(',').each do |class_name|
+          # Navigate through the namespace structure to get to the class
+          klass = Object
+          class_name.split('::').each do |name|
+            klass = klass.const_defined?(name) ? klass.const_get(name) : klass.const_missing(name)
+          end
+          
+          # Draw each of the class's state machines
+          klass.state_machines.each_value do |machine|
+            machine.draw(options)
+          end
+        end
+      end
+    end
+    
+    # Default messages to use for validation errors in ORM integrations
+    class << self; attr_accessor :default_messages; end
+    @default_messages = {
+      :invalid => 'is invalid',
+      :invalid_event => 'cannot transition when %s',
+      :invalid_transition => 'cannot transition via "%s"'
+    }
+    
+    # The class that the machine is defined in
+    attr_accessor :owner_class
+    
+    # The name of the machine, used for scoping methods generated for the
+    # machine as a whole (not states or events)
+    attr_reader :name
+    
+    # The events that trigger transitions.  These are sorted, by default, in
+    # the order in which they were defined.
+    attr_reader :events
+    
+    # A list of all of the states known to this state machine.  This will pull
+    # states from the following sources:
+    # * Initial state
+    # * State behaviors
+    # * Event transitions (:to, :from, and :except_from options)
+    # * Transition callbacks (:to, :from, :except_to, and :except_from options)
+    # * Unreferenced states (using +other_states+ helper)
+    # 
+    # These are sorted, by default, in the order in which they were referenced.
+    attr_reader :states
+    
+    # The callbacks to invoke before/after a transition is performed
+    # 
+    # Maps :before => callbacks and :after => callbacks
+    attr_reader :callbacks
+    
+    # The action to invoke when an object transitions
+    attr_reader :action
+    
+    # An identifier that forces all methods (including state predicates and
+    # event methods) to be generated with the value prefixed or suffixed,
+    # depending on the context.
+    attr_reader :namespace
+    
+    # Whether the machine will use transactions when firing events
+    attr_reader :use_transactions
+    
+    # Creates a new state machine for the given attribute
+    def initialize(owner_class, *args, &block)
+      options = args.last.is_a?(Hash) ? args.pop : {}
+      assert_valid_keys(options, :attribute, :initial, :action, :plural, :namespace, :integration, :messages, :use_transactions)
+      
+      # Find an integration that matches this machine's owner class
+      if integration = options[:integration] ? StateMachine::Integrations.find(options[:integration]) : StateMachine::Integrations.match(owner_class)
+        extend integration
+        options = integration.defaults.merge(options) if integration.respond_to?(:defaults)
+      end
+      
+      # Add machine-wide defaults
+      options = {:use_transactions => true}.merge(options)
+      
+      # Set machine configuration
+      @name = args.first || :state
+      @attribute = options[:attribute] || @name
+      @events = EventCollection.new(self)
+      @states = StateCollection.new(self)
+      @callbacks = {:before => [], :after => []}
+      @namespace = options[:namespace]
+      @messages = options[:messages] || {}
+      @action = options[:action]
+      @use_transactions = options[:use_transactions]
+      self.owner_class = owner_class
+      self.initial_state = options[:initial]
+      
+      # Define class integration
+      define_helpers
+      define_scopes(options[:plural])
+      after_initialize
+      
+      # Evaluate DSL
+      instance_eval(&block) if block_given?
+    end
+    
+    # Creates a copy of this machine in addition to copies of each associated
+    # event/states/callback, so that the modifications to those collections do
+    # not affect the original machine.
+    def initialize_copy(orig) #:nodoc:
+      super
+      
+      @events = @events.dup
+      @events.machine = self
+      @states = @states.dup
+      @states.machine = self
+      @callbacks = {:before => @callbacks[:before].dup, :after => @callbacks[:after].dup}
+    end
+    
+    # Sets the class which is the owner of this state machine.  Any methods
+    # generated by states, events, or other parts of the machine will be defined
+    # on the given owner class.
+    def owner_class=(klass)
+      @owner_class = klass
+      
+      # Create modules for extending the class with state/event-specific methods
+      class_helper_module = @class_helper_module = Module.new
+      instance_helper_module = @instance_helper_module = Module.new
+      owner_class.class_eval do
+        extend class_helper_module
+        include instance_helper_module
+      end
+      
+      # Add class-/instance-level methods to the owner class for state initialization
+      unless owner_class.included_modules.include?(StateMachine::InstanceMethods)
+        owner_class.class_eval do
+          extend StateMachine::ClassMethods
+          include StateMachine::InstanceMethods
+        end
+        
+        define_state_initializer
+      end
+      
+      # Record this machine as matched to the name in the current owner class.
+      # This will override any machines mapped to the same name in any superclasses.
+      owner_class.state_machines[name] = self
+    end
+    
+    # Sets the initial state of the machine.  This can be either the static name
+    # of a state or a lambda block which determines the initial state at
+    # creation time.
+    def initial_state=(new_initial_state)
+      @initial_state = new_initial_state
+      add_states([@initial_state]) unless dynamic_initial_state?
+      
+      # Update all states to reflect the new initial state
+      states.each {|state| state.initial = (state.name == @initial_state)}
+    end
+    
+    # Gets the actual name of the attribute on the machine's owner class that
+    # stores data with the given name.
+    def attribute(name = :state)
+      name == :state ? @attribute : :"#{self.name}_#{name}"
+    end
+    
+    # Defines a new instance method with the given name on the machine's owner
+    # class.  If the method is already defined in the class, then this will not
+    # override it.
+    # 
+    # Example:
+    # 
+    #   machine.define_instance_method(:state_name) do |machine, object|
+    #     machine.states.match(object)
+    #   end
+    def define_instance_method(method, &block)
+      name = self.name
+      
+      @instance_helper_module.class_eval do
+        define_method(method) do |*args|
+          block.call(self.class.state_machine(name), self, *args)
+        end
+      end
+    end
+    attr_reader :instance_helper_module
+    
+    # Defines a new class method with the given name on the machine's owner
+    # class.  If the method is already defined in the class, then this will not
+    # override it.
+    # 
+    # Example:
+    # 
+    #   machine.define_class_method(:states) do |machine, klass|
+    #     machine.states.keys
+    #   end
+    def define_class_method(method, &block)
+      name = self.name
+      
+      @class_helper_module.class_eval do
+        define_method(method) do |*args|
+          block.call(self.state_machine(name), self, *args)
+        end
+      end
+    end
+    
+    # Gets the initial state of the machine for the given object. If a dynamic
+    # initial state was configured for this machine, then the object will be
+    # passed into the lambda block to help determine the actual state.
+    # 
+    # == Examples
+    # 
+    # With a static initial state:
+    # 
+    #   class Vehicle
+    #     state_machine :initial => :parked do
+    #       ...
+    #     end
+    #   end
+    #   
+    #   vehicle = Vehicle.new
+    #   Vehicle.state_machine.initial_state(vehicle)  # => #<StateMachine::State name=:parked value="parked" initial=true>
+    # 
+    # With a dynamic initial state:
+    # 
+    #   class Vehicle
+    #     attr_accessor :force_idle
+    #     
+    #     state_machine :initial => lambda {|vehicle| vehicle.force_idle ? :idling : :parked} do
+    #       ...
+    #     end
+    #   end
+    #   
+    #   vehicle = Vehicle.new
+    #   
+    #   vehicle.force_idle = true
+    #   Vehicle.state_machine.initial_state(vehicle)  # => #<StateMachine::State name=:idling value="idling" initial=false>
+    #   
+    #   vehicle.force_idle = false
+    #   Vehicle.state_machine.initial_state(vehicle)  # => #<StateMachine::State name=:parked value="parked" initial=false>
+    def initial_state(object)
+      states.fetch(dynamic_initial_state? ? @initial_state.call(object) : @initial_state)
+    end
+    
+    # Whether a dynamic initial state is being used in the machine
+    def dynamic_initial_state?
+      @initial_state.is_a?(Proc)
+    end
+    
+    # Customizes the definition of one or more states in the machine.
+    # 
+    # Configuration options:
+    # * <tt>:value</tt> - The actual value to store when an object transitions
+    #   to the state.  Default is the name (stringified).
+    # * <tt>:cache</tt> - If a dynamic value (via a lambda block) is being used,
+    #   then setting this to true will cache the evaluated result
+    # * <tt>:if</tt> - Determines whether an object's value matches the state
+    #   (e.g. :value => lambda {Time.now}, :if => lambda {|state| !state.nil?}).
+    #   By default, the configured value is matched.
+    # 
+    # == Customizing the stored value
+    # 
+    # Whenever a state is automatically discovered in the state machine, its
+    # default value is assumed to be the stringified version of the name.  For
+    # example,
+    # 
+    #   class Vehicle
+    #     state_machine :initial => :parked do
+    #       event :ignite do
+    #         transition :parked => :idling
+    #       end
+    #     end
+    #   end
+    # 
+    # In the above state machine, there are two states automatically discovered:
+    # :parked and :idling.  These states, by default, will store their stringified
+    # equivalents when an object moves into that state (e.g. "parked" / "idling").
+    # 
+    # For legacy systems or when tying state machines into existing frameworks,
+    # it's oftentimes necessary to need to store a different value for a state
+    # than the default.  In order to continue taking advantage of an expressive
+    # state machine and helper methods, every defined state can be re-configured
+    # with a custom stored value.  For example,
+    # 
+    #   class Vehicle
+    #     state_machine :initial => :parked do
+    #       event :ignite do
+    #         transition :parked => :idling
+    #       end
+    #       
+    #       state :idling, :value => 'IDLING'
+    #       state :parked, :value => 'PARKED
+    #     end
+    #   end
+    # 
+    # This is also useful if being used in association with a database and,
+    # instead of storing the state name in a column, you want to store the
+    # state's foreign key:
+    # 
+    #   class VehicleState < ActiveRecord::Base
+    #   end
+    #   
+    #   class Vehicle < ActiveRecord::Base
+    #     state_machine :attribute => :state_id, :initial => :parked do
+    #       event :ignite do
+    #         transition :parked => :idling
+    #       end
+    #       
+    #       states.each do |state|
+    #         self.state(state.name, :value => lambda { VehicleState.find_by_name(state.name.to_s).id }, :cache => true)
+    #       end
+    #     end
+    #   end
+    # 
+    # In the above example, each known state is configured to store it's
+    # associated database id in the +state_id+ attribute.  Also, notice that a
+    # lambda block is used to define the state's value.  This is required in
+    # situations (like testing) where the model is loaded without any existing
+    # data (i.e. no VehicleState records available).
+    # 
+    # One caveat to the above example is to keep performance in mind.  To avoid
+    # constant db hits for looking up the VehicleState ids, the value is cached
+    # by specifying the <tt>:cache</tt> option.  Alternatively, a custom
+    # caching strategy can be used like so:
+    # 
+    #   class VehicleState < ActiveRecord::Base
+    #     cattr_accessor :cache_store
+    #     self.cache_store = ActiveSupport::Cache::MemoryStore.new
+    #     
+    #     def self.find_by_name(name)
+    #       cache_store.fetch(name) { find(:first, :conditions => {:name => name}) }
+    #     end
+    #   end
+    # 
+    # === Dynamic values
+    # 
+    # In addition to customizing states with other value types, lambda blocks
+    # can also be specified to allow for a state's value to be determined
+    # dynamically at runtime.  For example,
+    # 
+    #   class Vehicle
+    #     state_machine :purchased_at, :initial => :available do
+    #       event :purchase do
+    #         transition all => :purchased
+    #       end
+    #       
+    #       event :restock do
+    #         transition all => :available
+    #       end
+    #       
+    #       state :available, :value => nil
+    #       state :purchased, :if => lambda {|value| !value.nil?}, :value => lambda {Time.now}
+    #     end
+    #   end
+    # 
+    # In the above definition, the <tt>:purchased</tt> state is customized with
+    # both a dynamic value *and* a value matcher.
+    # 
+    # When an object transitions to the purchased state, the value's lambda
+    # block will be called.  This will get the current time and store it in the
+    # object's +purchased_at+ attribute.
+    # 
+    # *Note* that the custom matcher is very important here.  Since there's no
+    # way for the state machine to figure out an object's state when it's set to
+    # a runtime value, it must be explicitly defined.  If the <tt>:if</tt> option
+    # were not configured for the state, then an ArgumentError exception would
+    # be raised at runtime, indicating that the state machine could not figure
+    # out what the current state of the object was.
+    # 
+    # == Behaviors
+    # 
+    # Behaviors define a series of methods to mixin with objects when the current
+    # state matches the given one(s).  This allows instance methods to behave
+    # a specific way depending on what the value of the object's state is.
+    # 
+    # For example,
+    # 
+    #   class Vehicle
+    #     attr_accessor :driver
+    #     attr_accessor :passenger
+    #     
+    #     state_machine :initial => :parked do
+    #       event :ignite do
+    #         transition :parked => :idling
+    #       end
+    #       
+    #       state :parked do
+    #         def speed
+    #           0
+    #         end
+    #         
+    #         def rotate_driver
+    #           driver = self.driver
+    #           self.driver = passenger
+    #           self.passenger = driver
+    #           true
+    #         end
+    #       end
+    #       
+    #       state :idling, :first_gear do
+    #         def speed
+    #           20
+    #         end
+    #         
+    #         def rotate_driver
+    #           self.state = 'parked'
+    #           rotate_driver
+    #         end
+    #       end
+    #       
+    #       other_states :backing_up
+    #     end
+    #   end
+    # 
+    # In the above example, there are two dynamic behaviors defined for the
+    # class:
+    # * +speed+
+    # * +rotate_driver+
+    # 
+    # Each of these behaviors are instance methods on the Vehicle class.  However,
+    # which method actually gets invoked is based on the current state of the
+    # object.  Using the above class as the example:
+    # 
+    #   vehicle = Vehicle.new
+    #   vehicle.driver = 'John'
+    #   vehicle.passenger = 'Jane'
+    #   
+    #   # Behaviors in the "parked" state
+    #   vehicle.state             # => "parked"
+    #   vehicle.speed             # => 0
+    #   vehicle.rotate_driver     # => true
+    #   vehicle.driver            # => "Jane"
+    #   vehicle.passenger         # => "John"
+    #   
+    #   vehicle.ignite            # => true
+    #   
+    #   # Behaviors in the "idling" state
+    #   vehicle.state             # => "idling"
+    #   vehicle.speed             # => 20
+    #   vehicle.rotate_driver     # => true
+    #   vehicle.driver            # => "John"
+    #   vehicle.passenger         # => "Jane"
+    # 
+    # As can be seen, both the +speed+ and +rotate_driver+ instance method
+    # implementations changed how they behave based on what the current state
+    # of the vehicle was.
+    # 
+    # === Invalid behaviors
+    # 
+    # If a specific behavior has not been defined for a state, then a
+    # NoMethodError exception will be raised, indicating that that method would
+    # not normally exist for an object with that state.
+    # 
+    # Using the example from before:
+    # 
+    #   vehicle = Vehicle.new
+    #   vehicle.state = 'backing_up'
+    #   vehicle.speed               # => NoMethodError: undefined method 'speed' for #<Vehicle:0xb7d296ac> in state "backing_up"
+    # 
+    # == State-aware class methods
+    # 
+    # In addition to defining scopes for instance methods that are state-aware,
+    # the same can be done for certain types of class methods.
+    # 
+    # Some libraries have support for class-level methods that only run certain
+    # behaviors based on a conditions hash passed in.  For example:
+    # 
+    #   class Vehicle < ActiveRecord::Base
+    #     state_machine do
+    #       ...
+    #       state :first_gear, :second_gear, :third_gear do
+    #         validates_presence_of   :speed
+    #         validates_inclusion_of  :speed, :in => 0..25, :if => :in_school_zone?
+    #       end
+    #     end
+    #   end
+    # 
+    # In the above ActiveRecord model, two validations have been defined which
+    # will *only* run when the Vehicle object is in one of the three states:
+    # +first_gear+, +second_gear+, or +third_gear.  Notice, also, that if/unless
+    # conditions can continue to be used.
+    # 
+    # This functionality is not library-specific and can work for any class-level
+    # method that is defined like so:
+    # 
+    #   def validates_presence_of(attribute, options = {})
+    #     ...
+    #   end
+    # 
+    # The minimum requirement is that the last argument in the method be an
+    # options hash which contains at least <tt>:if</tt> condition support.
+    def state(*names, &block)
+      options = names.last.is_a?(Hash) ? names.pop : {}
+      assert_valid_keys(options, :value, :cache, :if)
+      
+      states = add_states(names)
+      states.each do |state|
+        if options.include?(:value)
+          state.value = options[:value]
+          self.states.update(state)
+        end
+        
+        state.cache = options[:cache] if options.include?(:cache)
+        state.matcher = options[:if] if options.include?(:if)
+        state.context(&block) if block_given?
+      end
+      
+      states.length == 1 ? states.first : states
+    end
+    alias_method :other_states, :state
+    
+    # Gets the current value stored in the given object's attribute.
+    # 
+    # For example,
+    # 
+    #   class Vehicle
+    #     state_machine :initial => :parked do
+    #       ...
+    #     end
+    #   end
+    #   
+    #   vehicle = Vehicle.new                           # => #<Vehicle:0xb7d94ab0 @state="parked">
+    #   Vehicle.state_machine.read(vehicle, :state)     # => "parked" # Equivalent to vehicle.state
+    #   Vehicle.state_machine.read(vehicle, :event)     # => nil      # Equivalent to vehicle.state_event
+    def read(object, attribute, ivar = false)
+      attribute = self.attribute(attribute)
+      ivar ? object.instance_variable_get("@#{attribute}") : object.send(attribute)
+    end
+    
+    # Sets a new value in the given object's attribute.
+    # 
+    # For example,
+    # 
+    #   class Vehicle
+    #     state_machine :initial => :parked do
+    #       ...
+    #     end
+    #   end
+    #   
+    #   vehicle = Vehicle.new                                   # => #<Vehicle:0xb7d94ab0 @state="parked">
+    #   Vehicle.state_machine.write(vehicle, :state, 'idling')  # => Equivalent to vehicle.state = 'idling'
+    #   Vehicle.state_machine.write(vehicle, :event, 'park')    # => Equivalent to vehicle.state_event = 'park'
+    #   vehicle.state                                           # => "idling"
+    #   vehicle.event                                           # => "park"
+    def write(object, attribute, value)
+      object.send("#{self.attribute(attribute)}=", value)
+    end
+    
+    # Defines one or more events for the machine and the transitions that can
+    # be performed when those events are run.
+    # 
+    # This method is also aliased as +on+ for improved compatibility with
+    # using a domain-specific language.
+    # 
+    # == Instance methods
+    # 
+    # The following instance methods are generated when a new event is defined
+    # (the "park" event is used as an example):
+    # * <tt>can_park?</tt> - Checks whether the "park" event can be fired given
+    #   the current state of the object.  This will *not* run validations in
+    #   ORM integrations.  To check whether an event can fire *and* passes
+    #   validations, use event attributes (e.g. state_event) as described in the
+    #   "Events" documentation of each ORM integration.
+    # * <tt>park_transition</tt> -  Gets the next transition that would be
+    #   performed if the "park" event were to be fired now on the object or nil
+    #   if no transitions can be performed.
+    # * <tt>park(run_action = true)</tt> - Fires the "park" event, transitioning
+    #   from the current state to the next valid state.
+    # * <tt>park!(run_action = true)</tt> - Fires the "park" event, transitioning
+    #   from the current state to the next valid state.  If the transition fails,
+    #   then a StateMachine::InvalidTransition error will be raised.
+    # 
+    # With a namespace of "car", the above names map to the following methods:
+    # * <tt>can_park_car?</tt>
+    # * <tt>park_car_transition</tt>
+    # * <tt>park_car</tt>
+    # * <tt>park_car!</tt>
+    # 
+    # == Defining transitions
+    # 
+    # +event+ requires a block which allows you to define the possible
+    # transitions that can happen as a result of that event.  For example,
+    # 
+    #   event :park, :stop do
+    #     transition :idling => :parked
+    #   end
+    #   
+    #   event :first_gear do
+    #     transition :parked => :first_gear, :if => :seatbelt_on?
+    #   end
+    # 
+    # See StateMachine::Event#transition for more information on
+    # the possible options that can be passed in.
+    # 
+    # *Note* that this block is executed within the context of the actual event
+    # object.  As a result, you will not be able to reference any class methods
+    # on the model without referencing the class itself.  For example,
+    # 
+    #   class Vehicle
+    #     def self.safe_states
+    #       [:parked, :idling, :stalled]
+    #     end
+    #     
+    #     state_machine do
+    #       event :park do
+    #         transition Vehicle.safe_states => :parked
+    #       end
+    #     end
+    #   end 
+    # 
+    # == Defining additional arguments
+    # 
+    # Additional arguments on event actions can be defined like so:
+    # 
+    #   class Vehicle
+    #     state_machine do
+    #       event :park do
+    #         ...
+    #       end
+    #     end
+    #     
+    #     def park(kind = :parallel, *args)
+    #       take_deep_breath if kind == :parallel
+    #       super
+    #     end
+    #     
+    #     def take_deep_breath
+    #       sleep 3
+    #     end
+    #   end
+    # 
+    # Note that +super+ is called instead of <tt>super(*args)</tt>.  This
+    # allows the entire arguments list to be accessed by transition callbacks
+    # through StateMachine::Transition#args like so:
+    # 
+    #   after_transition :on => :park do |vehicle, transition|
+    #     kind = *transition.args
+    #     ...
+    #   end
+    # 
+    # == Example
+    # 
+    #   class Vehicle
+    #     state_machine do
+    #       # The park, stop, and halt events will all share the given transitions
+    #       event :park, :stop, :halt do
+    #         transition [:idling, :backing_up] => :parked
+    #       end
+    #       
+    #       event :stop do
+    #         transition :first_gear => :idling
+    #       end
+    #       
+    #       event :ignite do
+    #         transition :parked => :idling
+    #       end
+    #     end
+    #   end
+    def event(*names, &block)
+      events = names.collect do |name|
+        unless event = self.events[name]
+          self.events << event = Event.new(self, name)
+        end
+        
+        if block_given?
+          event.instance_eval(&block)
+          add_states(event.known_states)
+        end
+        
+        event
+      end
+      
+      events.length == 1 ? events.first : events
+    end
+    alias_method :on, :event
+    
+    # Creates a callback that will be invoked *before* a transition is
+    # performed so long as the given requirements match the transition.
+    # 
+    # == The callback
+    # 
+    # Callbacks must be defined as either an argument, in the :do option, or
+    # as a block.  For example,
+    # 
+    #   class Vehicle
+    #     state_machine do
+    #       before_transition :set_alarm
+    #       before_transition :set_alarm, all => :parked
+    #       before_transition all => :parked, :do => :set_alarm
+    #       before_transition all => :parked do |vehicle, transition|
+    #         vehicle.set_alarm
+    #       end
+    #       ...
+    #     end
+    #   end
+    # 
+    # Notice that the first three callbacks are the same in terms of how the
+    # methods to invoke are defined.  However, using the <tt>:do</tt> can
+    # provide for a more fluid DSL.
+    # 
+    # In addition, multiple callbacks can be defined like so:
+    # 
+    #   class Vehicle
+    #     state_machine do
+    #       before_transition :set_alarm, :lock_doors, all => :parked
+    #       before_transition all => :parked, :do => [:set_alarm, :lock_doors]
+    #       before_transition :set_alarm do |vehicle, transition|
+    #         vehicle.lock_doors
+    #       end
+    #     end
+    #   end
+    # 
+    # Notice that the different ways of configuring methods can be mixed.
+    # 
+    # == State requirements
+    # 
+    # Callbacks can require that the machine be transitioning from and to
+    # specific states.  These requirements use a Hash syntax to map beginning
+    # states to ending states.  For example,
+    # 
+    #   before_transition :parked => :idling, :idling => :first_gear, :do => :set_alarm
+    # 
+    # In this case, the +set_alarm+ callback will only be called if the machine
+    # is transitioning from +parked+ to +idling+ or from +idling+ to +parked+.
+    # 
+    # To help define state requirements, a set of helpers are available for
+    # slightly more complex matching:
+    # * <tt>all</tt> - Matches every state/event in the machine
+    # * <tt>all - [:parked, :idling, ...]</tt> - Matches every state/event except those specified
+    # * <tt>any</tt> - An alias for +all+ (matches every state/event in the machine)
+    # * <tt>same</tt> - Matches the same state being transitioned from
+    # 
+    # See StateMachine::MatcherHelpers for more information.
+    # 
+    # Examples:
+    # 
+    #   before_transition :parked => [:idling, :first_gear], :do => ...     # Matches from parked to idling or first_gear
+    #   before_transition all - [:parked, :idling] => :idling, :do => ...   # Matches from every state except parked and idling to idling
+    #   before_transition all => :parked, :do => ...                        # Matches all states to parked
+    #   before_transition any => same, :do => ...                           # Matches every loopback
+    # 
+    # == Event requirements
+    # 
+    # In addition to state requirements, an event requirement can be defined so
+    # that the callback is only invoked on specific events using the +on+
+    # option.  This can also use the same matcher helpers as the state
+    # requirements.
+    # 
+    # Examples:
+    # 
+    #   before_transition :on => :ignite, :do => ...                        # Matches only on ignite
+    #   before_transition :on => all - :ignite, :do => ...                  # Matches on every event except ignite
+    #   before_transition :parked => :idling, :on => :ignite, :do => ...    # Matches from parked to idling on ignite
+    # 
+    # == Result requirements
+    # 
+    # By default, after_transition callbacks will only be run if the transition
+    # was performed successfully.  A transition is successful if the machine's
+    # action is not configured or does not return false when it is invoked.
+    # In order to include failed attempts when running an after_transition
+    # callback, the :include_failures option can be specified like so:
+    # 
+    #   after_transition :include_failures => true, :do => ...  # Runs on all attempts to transition, including failures
+    #   after_transition :do => ...                             # Runs only on successful attempts to transition
+    # 
+    # == Verbose Requirements
+    # 
+    # Requirements can also be defined using verbose options rather than the
+    # implicit Hash syntax and helper methods described above.
+    # 
+    # Configuration options:
+    # * <tt>:from</tt> - One or more states being transitioned from.  If none
+    #   are specified, then all states will match.
+    # * <tt>:to</tt> - One or more states being transitioned to.  If none are
+    #   specified, then all states will match.
+    # * <tt>:on</tt> - One or more events that fired the transition.  If none
+    #   are specified, then all events will match.
+    # * <tt>:except_from</tt> - One or more states *not* being transitioned from
+    # * <tt>:except_to</tt> - One more states *not* being transitioned to
+    # * <tt>:except_on</tt> - One or more events that *did not* fire the transition
+    # 
+    # Examples:
+    # 
+    #   before_transition :from => :ignite, :to => :idling, :on => :park, :do => ...
+    #   before_transition :except_from => :ignite, :except_to => :idling, :except_on => :park, :do => ...
+    # 
+    # == Conditions
+    # 
+    # In addition to the state/event requirements, a condition can also be
+    # defined to help determine whether the callback should be invoked.
+    # 
+    # Configuration options:
+    # * <tt>:if</tt> - A method, proc or string to call to determine if the
+    #   callback should occur (e.g. :if => :allow_callbacks, or
+    #   :if => lambda {|user| user.signup_step > 2}). The method, proc or string
+    #   should return or evaluate to a true or false value. 
+    # * <tt>:unless</tt> - A method, proc or string to call to determine if the
+    #   callback should not occur (e.g. :unless => :skip_callbacks, or
+    #   :unless => lambda {|user| user.signup_step <= 2}). The method, proc or
+    #   string should return or evaluate to a true or false value. 
+    # 
+    # Examples:
+    # 
+    #   before_transition :parked => :idling, :if => :moving?, :do => ...
+    #   before_transition :on => :ignite, :unless => :seatbelt_on?, :do => ...
+    # 
+    # === Accessing the transition
+    # 
+    # In addition to passing the object being transitioned, the actual
+    # transition describing the context (e.g. event, from, to) can be accessed
+    # as well.  This additional argument is only passed if the callback allows
+    # for it.
+    # 
+    # For example,
+    # 
+    #   class Vehicle
+    #     # Only specifies one parameter (the object being transitioned)
+    #     before_transition all => :parked do |vehicle|
+    #       vehicle.set_alarm
+    #     end
+    #     
+    #     # Specifies 2 parameters (object being transitioned and actual transition)
+    #     before_transition all => :parked do |vehicle, transition|
+    #       vehicle.set_alarm(transition)
+    #     end
+    #   end
+    # 
+    # *Note* that the object in the callback will only be passed in as an
+    # argument if callbacks are configured to *not* be bound to the object
+    # involved.  This is the default and may change on a per-integration basis.
+    # 
+    # See StateMachine::Transition for more information about the
+    # attributes available on the transition.
+    # 
+    # == Examples
+    # 
+    # Below is an example of a class with one state machine and various types
+    # of +before+ transitions defined for it:
+    # 
+    #   class Vehicle
+    #     state_machine do
+    #       # Before all transitions
+    #       before_transition :update_dashboard
+    #       
+    #       # Before specific transition:
+    #       before_transition [:first_gear, :idling] => :parked, :on => :park, :do => :take_off_seatbelt
+    #       
+    #       # With conditional callback:
+    #       before_transition all => :parked, :do => :take_off_seatbelt, :if => :seatbelt_on?
+    #       
+    #       # Using helpers:
+    #       before_transition all - :stalled => same, :on => any - :crash, :do => :update_dashboard
+    #       ...
+    #     end
+    #   end
+    # 
+    # As can be seen, any number of transitions can be created using various
+    # combinations of configuration options.
+    def before_transition(*args, &block)
+      options = (args.last.is_a?(Hash) ? args.pop : {})
+      options[:do] = args if args.any?
+      add_callback(:before, options, &block)
+    end
+    
+    # Creates a callback that will be invoked *after* a transition is
+    # performed so long as the given requirements match the transition.
+    # 
+    # See +before_transition+ for a description of the possible configurations
+    # for defining callbacks.
+    def after_transition(*args, &block)
+      options = (args.last.is_a?(Hash) ? args.pop : {})
+      options[:do] = args if args.any?
+      add_callback(:after, options, &block)
+    end
+    
+    # Marks the given object as invalid with the given message.
+    # 
+    # By default, this is a no-op.
+    def invalidate(object, attribute, message, values = [])
+    end
+    
+    # Resets any errors previously added when invalidating the given object.
+    # 
+    # By default, this is a no-op.
+    def reset(object)
+    end
+    
+    # Generates the message to use when invalidating the given object after
+    # failing to transition on a specific event
+    def generate_message(name, values = [])
+      (@messages[name] || self.class.default_messages[name]) % values.map {|value| value.last}
+    end
+    
+    # Runs a transaction, rolling back any changes if the yielded block fails.
+    # 
+    # This is only applicable to integrations that involve databases.  By
+    # default, this will not run any transactions since the changes aren't
+    # taking place within the context of a database.
+    def within_transaction(object)
+      if use_transactions
+        transaction(object) { yield }
+      else
+        yield
+      end
+    end
+    
+    # Draws a directed graph of the machine for visualizing the various events,
+    # states, and their transitions.
+    # 
+    # This requires both the Ruby graphviz gem and the graphviz library be
+    # installed on the system.
+    # 
+    # Configuration options:
+    # * <tt>:name</tt> - The name of the file to write to (without the file extension).
+    #   Default is "#{owner_class.name}_#{name}"
+    # * <tt>:path</tt> - The path to write the graph file to.  Default is the
+    #   current directory (".").
+    # * <tt>:format</tt> - The image format to generate the graph in.
+    #   Default is "png'.
+    # * <tt>:font</tt> - The name of the font to draw state names in.
+    #   Default is "Arial".
+    # * <tt>:orientation</tt> - The direction of the graph ("portrait" or
+    #   "landscape").  Default is "portrait".
+    # * <tt>:output</tt> - Whether to generate the output of the graph
+    def draw(options = {})
+      options = {
+        :name => "#{owner_class.name}_#{name}",
+        :path => '.',
+        :format => 'png',
+        :font => 'Arial',
+        :orientation => 'portrait',
+        :output => true
+      }.merge(options)
+      assert_valid_keys(options, :name, :path, :format, :font, :orientation, :output)
+      
+      begin
+        # Load the graphviz library
+        require 'rubygems'
+        require 'graphviz'
+        
+        graph = GraphViz.new('G',
+          :output => options[:format],
+          :file => File.join(options[:path], "#{options[:name]}.#{options[:format]}"),
+          :rankdir => options[:orientation] == 'landscape' ? 'LR' : 'TB'
+        )
+        
+        # Add nodes
+        states.by_priority.each do |state|
+          node = state.draw(graph)
+          node.fontname = options[:font]
+        end
+        
+        # Add edges
+        events.each do |event|
+          edges = event.draw(graph)
+          edges.each {|edge| edge.fontname = options[:font]}
+        end
+        
+        # Generate the graph
+        graph.output if options[:output]
+        graph
+      rescue LoadError
+        $stderr.puts 'Cannot draw the machine. `gem install ruby-graphviz` and try again.'
+        false
+      end
+    end
+    
+    protected
+      # Runs additional initialization hooks.  By default, this is a no-op.
+      def after_initialize
+      end
+      
+      # Adds helper methods for interacting with the state machine, including
+      # for states, events, and transitions
+      def define_helpers
+        define_state_accessor
+        define_state_predicate
+        define_event_helpers
+        define_action_helpers if action
+        
+        # Gets the state name for the current value
+        define_instance_method(attribute(:name)) do |machine, object|
+          machine.states.match!(object).name
+        end
+      end
+      
+      # Defines the initial values for state machine attributes.  Static values
+      # are set prior to the original initialize method and dynamic values are
+      # set *after* the initialize method in case it is dependent on it.
+      def define_state_initializer
+        @instance_helper_module.class_eval <<-end_eval, __FILE__, __LINE__
+          def initialize(*args)
+            initialize_state_machines(:dynamic => false)
+            super
+            initialize_state_machines(:dynamic => true)
+          end
+        end_eval
+      end
+      
+      # Adds reader/writer methods for accessing the state attribute
+      def define_state_accessor
+        attribute = self.attribute
+        
+        @instance_helper_module.class_eval do
+          attr_accessor attribute
+        end
+      end
+      
+      # Adds predicate method to the owner class for determining the name of the
+      # current state
+      def define_state_predicate
+        define_instance_method("#{name}?") do |machine, object, state|
+          machine.states.matches?(object, state)
+        end
+      end
+      
+      # Adds helper methods for getting information about this state machine's
+      # events
+      def define_event_helpers
+        # Gets the events that are allowed to fire on the current object
+        define_instance_method(attribute(:events)) do |machine, object|
+          machine.events.valid_for(object).map {|event| event.name}
+        end
+        
+        # Gets the next possible transitions that can be run on the current
+        # object
+        define_instance_method(attribute(:transitions)) do |machine, object, *args|
+          machine.events.transitions_for(object, *args)
+        end
+        
+        # Add helpers for interacting with the action
+        if action
+          # Tracks the event / transition to invoke when the action is called
+          event_attribute = attribute(:event)
+          event_transition_attribute = attribute(:event_transition)
+          @instance_helper_module.class_eval do
+            attr_writer event_attribute
+            
+            protected
+              attr_accessor event_transition_attribute
+          end
+          
+          # Interpret non-blank events as present
+          define_instance_method(attribute(:event)) do |machine, object|
+            event = machine.read(object, :event, true)
+            event && !(event.respond_to?(:empty?) && event.empty?) ? event.to_sym : nil
+          end
+        end
+      end
+      
+      # Adds helper methods for automatically firing events when an action
+      # is invoked
+      def define_action_helpers(action_hook = self.action)
+        action = self.action
+        private_method = owner_class.private_method_defined?(action_hook)
+        
+        if (owner_class.method_defined?(action_hook) || private_method) && !owner_class.state_machines.any? {|name, machine| machine.action == action && machine != self}
+          # Action is defined and hasn't already been overridden by another machine
+          @instance_helper_module.class_eval do
+            # Override the default action to invoke the before / after hooks
+            define_method(action_hook) do |*args|
+              self.class.state_machines.fire_event_attributes(self, action) { super(*args) }
+            end
+            
+            private action_hook if private_method
+          end
+          
+          true
+        else
+          # Action already defined: don't add integration-specific hooks
+          false
+        end
+      end
+      
+      # Defines the with/without scope helpers for this attribute.  Both the
+      # singular and plural versions of the attribute are defined for each
+      # scope helper.  A custom plural can be specified if it cannot be
+      # automatically determined by either calling +pluralize+ on the attribute
+      # name or adding an "s" to the end of the name.
+      def define_scopes(custom_plural = nil)
+        plural = custom_plural || (name.to_s.respond_to?(:pluralize) ? name.to_s.pluralize : "#{name}s")
+        
+        [name, plural].uniq.each do |name|
+          [:with, :without].each do |kind|
+            method = "#{kind}_#{name}"
+            
+            if scope = send("create_#{kind}_scope", method)
+              # Converts state names to their corresponding values so that they
+              # can be looked up properly
+              define_class_method(method) do |machine, klass, *states|
+                values = states.flatten.map {|state| machine.states.fetch(state).value}
+                scope.call(klass, values)
+              end
+            end
+          end
+        end
+      end
+      
+      # Creates a scope for finding objects *with* a particular value or values
+      # for the attribute.
+      # 
+      # By default, this is a no-op.
+      def create_with_scope(name)
+      end
+      
+      # Creates a scope for finding objects *without* a particular value or
+      # values for the attribute.
+      # 
+      # By default, this is a no-op.
+      def create_without_scope(name)
+      end
+      
+      # Always yields
+      def transaction(object)
+        yield
+      end
+      
+      # Adds a new transition callback of the given type.
+      def add_callback(type, options, &block)
+        callbacks[type] << callback = Callback.new(options, &block)
+        add_states(callback.known_states)
+        callback
+      end
+      
+      # Tracks the given set of states in the list of all known states for
+      # this machine
+      def add_states(new_states)
+        new_states.map do |new_state|
+          unless state = states[new_state]
+            states << state = State.new(self, new_state)
+          end
+          
+          state
+        end
+      end
+  end
+end