trigger 0.0.1

data/Rakefile

@@ -0,0 +1,45 @@
+require "rake/rdoctask"
+require "rake/testtask"
+require "rake/gempackagetask"
+
+require "rubygems"
+
+task :default => [:test]
+
+Rake::TestTask.new do |test|
+  test.libs << "test"
+  test.test_files = [ 'test/ts_all.rb' ]
+  test.verbose = true
+end
+
+Rake::RDocTask.new do |rdoc|
+  rdoc.main = 'README'
+  rdoc.rdoc_files.include 'README', 'lib/'
+  rdoc.rdoc_dir = 'doc'
+  rdoc.title = 'Trigger Documentation'
+end
+
+spec = Gem::Specification.new do |spec|
+  spec.name = "trigger"
+  spec.version = "0.0.1"
+  spec.platform = Gem::Platform::RUBY
+  spec.summary = "Trigger is a library for declaring and handling before and after events on method calls."
+  spec.files = Dir.glob("{lib,test}/**/*.rb").
+                   delete_if { |item| item.include?("svn") } +
+                   ["Rakefile"]
+  spec.test_suite_file = "test/ts_all.rb"
+  spec.has_rdoc = false
+  spec.require_path = 'lib'
+  spec.autorequire = "trigger"
+  spec.author = "Michel Martens"
+  spec.email = "michel@soveran.org"
+  spec.homepage = "http://www.soveran.com"
+  spec.description = "A simple library for declaring and handling before and after events on method calls."
+  spec.add_dependency('metaid')
+end
+
+Rake::GemPackageTask.new(spec) do |pkg|
+  pkg.need_zip = true
+  pkg.need_tar = true
+  pkg.gem_spec = spec
+end

data/lib/trigger.rb

@@ -0,0 +1,66 @@
+require 'rubygems'
+require 'metaid'
+
+# Allows the declaration of events to be triggered.
+#
+# Example:
+#
+#   class User < Person
+#     def save
+#       ...
+#     end
+#   end
+#
+#   user = User.new
+#   user.before(:save) { puts "Saving user..." }
+#   user.after(:save) { puts "User saved." }
+#   user.save
+#
+# The block yields the object itself, so it's possible to
+# construct callbacks like this:
+#
+#   user.before :save do |u|
+#     u.encrypt_password!
+#   end
+# 
+class Object
+  def before sym, &block
+    append_triggerable sym, :before, &block
+  end
+
+  def after sym, &block
+    append_triggerable sym, :after, &block
+  end
+
+private
+  
+  def append_triggerable sym, moment, &block
+    update_triggerable_index sym, moment, &block
+    meta_def sym do |*attrs|
+      call_triggerable_methods sym, :before
+      result = call_triggerable_redefined_method(sym, *attrs)
+      call_triggerable_methods sym, :after
+      result
+    end
+  end
+  
+  def update_triggerable_index sym, moment, &block
+    initialize_triggerable_index unless @triggerable_index
+    @triggerable_index[sym][:old] = method(sym) if @triggerable_index[sym][:old].eql?([])
+    @triggerable_index[sym][moment] << block
+  end
+
+  def call_triggerable_methods sym, moment
+    @triggerable_index[sym][moment].each do |block|
+      block.call(self)
+    end
+  end
+
+  def call_triggerable_redefined_method sym, *attrs
+    @triggerable_index[sym][:old].call(*attrs)
+  end
+
+  def initialize_triggerable_index
+    @triggerable_index ||= Hash.new { |hash, key| hash[key] = Hash.new { |h, k| h[k] = Array.new }}
+  end
+end

data/test/ts_all.rb

@@ -0,0 +1,117 @@
+require 'test/unit'
+Dir.chdir File.dirname(__FILE__)
+Dir.chdir '..'
+require 'lib/trigger'
+
+class Service
+  attr_accessor :status
+  attr_accessor :last_started
+  attr_accessor :working
+  attr_accessor :finalizer
+ 
+  def start
+    @status = 'Started'
+  end
+
+  def stop
+    @status = 'Stopped'
+  end
+
+  def change
+    @finalizer
+  end
+
+  def restart
+    start
+  end
+
+  def ping
+  end
+
+  def yielder
+    yield @status
+  end
+
+  def [] key
+    key
+  end
+
+  def method_missing method_symbol, *params
+    '1'
+  end
+end
+
+
+class TestTrigger < Test::Unit::TestCase
+  def setup
+    @service = Service.new
+    @service.before :start do |service|
+      service.last_started = Time.now
+      service.working = true
+    end
+
+    @service.before :stop do |service|
+      service.working = false
+    end
+
+    @service.after :ping do
+      'pong'
+    end
+
+    @service.after :change do |service|
+      service.finalizer = true
+    end
+
+    @temp_status = ''
+    @service.before :yielder do |service|
+      @temp_status = service.status
+      service.status = "Hay!"
+    end
+
+    @service.after :yielder do |service|
+      service.status = @temp_status
+    end
+  end
+
+  def test_trigger_subclassed_start
+    @service.start
+    assert_equal 'Started', @service.status
+  end
+  
+  def test_trigger_subclassed_start_triggered
+    @service.restart
+    assert_equal true, @service.working
+  end
+  
+  def test_trigger_subclassed_stop_triggered
+    @service.stop
+    assert_equal false, @service.working
+  end
+
+  def test_trigger_subclassed_instance_restart_trigger
+    @last_started = nil
+    @service.on :restart do |service|
+      @last_started = service.last_started
+    end
+    @service.restart
+    assert_not_equal @last_started, @service.last_started
+  end
+
+  def test_trigger_subclassed_return_value
+    assert_equal nil, @service.ping
+  end
+
+  def test_trigger_changed_in_after_call_doesnt_affect_returned_value
+    assert_equal nil, @service.change
+    assert_equal true, @service.change
+  end
+
+  def test_trigger_should_not_interefere_with_methods_that_accept_blocks
+    assert_nothing_raised do
+      @service.yielder do |i|
+        puts i
+        puts "Hello!"
+      end
+    end
+  end
+end

metadata

@@ -0,0 +1,56 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.0
+specification_version: 1
+name: trigger
+version: !ruby/object:Gem::Version 
+  version: 0.0.1
+date: 2007-08-23 00:00:00 -03:00
+summary: Trigger is a library for declaring and handling before and after events on method calls.
+require_paths: 
+- lib
+email: michel@soveran.org
+homepage: http://www.soveran.com
+rubyforge_project: 
+description: A simple library for declaring and handling before and after events on method calls.
+autorequire: trigger
+default_executable: 
+bindir: bin
+has_rdoc: false
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+post_install_message: 
+authors: 
+- Michel Martens
+files: 
+- lib/trigger.rb
+- test/ts_all.rb
+- Rakefile
+test_files: 
+- test/ts_all.rb
+rdoc_options: []
+
+extra_rdoc_files: []
+
+executables: []
+
+extensions: []
+
+requirements: []
+
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: metaid
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">"
+      - !ruby/object:Gem::Version 
+        version: 0.0.0
+    version: