bless 0.1.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 201fad31dea2baafb55c2ad7ece548a0326599fa
+  data.tar.gz: 68bb9c8af4be0781f1de984a4582f724ceb7dd25
+SHA512:
+  metadata.gz: 94b932c692e91be83fb16eadbd3afec8ab38bd99faf14bf0fe1f97f85d70247d2da2420f89aad110edd74bf9bb1a8dfb85afef0bc0f59edbedbca10f1a0d5aa2
+  data.tar.gz: a49f5f6179cdfa9770fa8f2308e5eea7fb1062a2ff8cb73a49c36ba31b5c7a4bcd06ecaa4782f033dd62e45c542ba6256d4a1be1dba92f02f34706d9f6c64360

data/.gitignore

@@ -0,0 +1,18 @@
+.DS_Store
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp

data/.rspec

@@ -0,0 +1,2 @@
+--color
+--format documentation

data/.travis.yml

@@ -0,0 +1,6 @@
+language: ruby
+rvm:
+  - ruby-head
+  - 2.1.0
+  - 2.0.0
+  - 1.9.3

data/Gemfile

@@ -0,0 +1,3 @@
+source 'https://rubygems.org'
+
+gemspec

data/Guardfile

@@ -0,0 +1,6 @@
+guard 'rspec' do
+  watch(%r{^spec/.+_spec\.rb$})
+  watch(%r{^lib/(.+)\.rb$})     { |m| "spec/#{m[1]}_spec.rb" }
+  #watch('spec/spec_helper.rb') { 'spec' }
+end
+

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2013 Lennart Fridén
+
+MIT License
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,40 @@
+# Bliss [![Build Status](https://secure.travis-ci.org/DevL/bliss.png)](http://travis-ci.org/DevL/bliss) ![Gem version](https://badge.fury.io/rb/bliss.png)
+
+Miss Perl? Ever wished Ruby was more like it? Me neither, but that's no excuse for going nuts and hack together some insane code that Perlifies Ruby.
+
+There's no excuse for using it in production though.
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+    gem 'bliss'
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install bliss
+
+## Usage
+
+Using bless is simplicity itself. Or was it idiocy? Nevermind, bless your followers by uttering the following. Preferably followed by a prayer that your code will not be seen by anyone. Ever.
+
+```ruby
+  blessed_object = bless(Object.new, String)
+  blessed_object.instance_of?(String) # => true
+```
+
+Now, the proverbial example usage of bless in Perl would operate in conjunction with the `my` keyword. However, implementing support for that proved to be somewhat less than straightforward. To make a long story short, setting a local variable from an eval AND retaining that local variable beyond the scope of the eval is simply not possible in Ruby\*.
+
+\* Until we come up with the idea of hacking Rubinius into submission. Hopefully we'll never think of that.
+
+## Contributing
+
+1. Fork it
+2. Create your feature branch (`git checkout -b I-say-we-take-off-and-nuke-it-from-orbit`)
+3. Commit your changes (`git commit -am 'It is the only way to make sure!'`)
+4. Push to the branch (`git push origin I-say-we-take-off-and-nuke-it-from-orbit`)
+5. Create new Pull Request

data/Rakefile

@@ -0,0 +1,5 @@
+require 'rspec/core/rake_task'
+
+RSpec::Core::RakeTask.new(:spec)
+
+task :default => :spec

data/bless.gemspec

@@ -0,0 +1,28 @@
+# encoding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'bless/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = 'bless'
+  spec.version       = Bless::VERSION
+  spec.authors       = ['Lennart Fridén', 'Kim Persson']
+  spec.email         = ['lennart@devl.se']
+  spec.description   = %q{Blessed are the Perl hackers}
+  spec.summary       = %q{Brings the blessings of Perl to Ruby}
+  spec.homepage      = 'https://github.com/DevL/bless'
+  spec.license       = 'MIT'
+
+  spec.files         = `git ls-files`.split($/)
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ['lib']
+
+  spec.add_runtime_dependency 'binding_of_caller', '~> 0.7'
+  spec.add_development_dependency 'byebug', '~> 2.5'
+  spec.add_development_dependency 'bundler', '~> 1.3'
+  spec.add_development_dependency 'rake', '~> 10'
+  spec.add_development_dependency 'rspec', '~> 2.14'
+  spec.add_development_dependency 'guard', '~> 2.2'
+  spec.add_development_dependency 'guard-rspec', '~> 4.2'
+end

data/lib/bless.rb

@@ -0,0 +1,123 @@
+require 'bless/version'
+require 'binding_of_caller'
+
+module Bless
+  class Blesser
+    class CannotBlessSimpletons < StandardError; end
+
+    def self.bless(object, klass, context, invoker)
+      assert_kernel_ancestor_on(object)
+      new(object, klass, context, invoker).bless
+    end
+
+    def bless
+      if blessee_writeable?
+        convert_or_set_blessee_in_context
+      else
+        convert_or_instantiate
+      end
+    end
+
+    private
+
+    attr_reader :blessee, :blessee_code, :blessee_owner, :code, :context, :invoker, :klass, :object
+
+    def initialize(object, klass, context, invoker)
+      @object = object
+      @context = context
+      @invoker = invoker
+      @klass = determine_target_class(klass)
+      @code = code_for_invoker
+      @blessee_code = extract_blessee_code
+      @blessee, @blessee_owner = blessee_and_owner
+    end
+
+    def self.assert_kernel_ancestor_on(object)
+      object.class.ancestors.include?(Kernel)
+    rescue NoMethodError => e
+      raise CannotBlessSimpletons.new
+    end
+
+    def determine_target_class(klass)
+      klass || context.eval('self.class')
+    end
+
+    def code_for_invoker
+      file, line = invoker.split(':')
+      IO.readlines(file)[line.to_i - 1].strip
+    end
+
+    def extract_blessee_code
+      match_data = code.match code_regex
+      match_data[:var] if match_data
+    end
+
+    def code_regex
+      /
+        bless
+        (\(\s*|\s+)     # optional opening parens followed by optional whitespace OR mandatory whitespace
+        (?<var>[^,\s]+) # extract variable name
+        (\s*,\s*.+)?    # optional whitespace, comma, optional whitespace, whatever (all optional)
+        \)?             # optional closing parens
+      /x
+    end
+
+    def blessee_and_owner
+      blessee_elements = blessee_code.split('.')
+      [blessee_elements.pop, blessee_elements.join('.')]
+    end
+
+    def convertable_object?
+      Kernel.methods.include?(klass.name.to_sym)
+    end
+
+    def convert_or_set_blessee_in_context
+      if convertable_object?
+        convert_blessee_in_context
+      else
+        set_blessee_in_context
+      end
+    end
+
+    def convert_blessee_in_context
+      context.eval("#{blessee_code} = send('#{klass.name}', #{blessee_code})")
+    end
+
+    def set_blessee_in_context
+      context.eval("#{blessee_code} = #{klass}.new")
+    end
+
+    def convert_or_instantiate
+      if convertable_object?
+        send(klass.name, object)
+      else
+        klass.new
+      end
+    end
+
+    def blessee_writeable?
+      if !blessee_owner.empty?
+        blessee_assignable?
+      else
+        assignable_variables_for_context.include?(blessee.to_sym)
+      end
+    end
+
+    def blessee_assignable?
+      context.eval "#{blessee_owner}.respond_to?('#{blessee}=')"
+    end
+
+    def assignable_variables_for_context
+      context.eval('local_variables + instance_variables')
+    end
+  end
+end
+
+module Kernel
+  def bless(object, klass = nil)
+    context = binding.of_caller(1)
+    invoker = caller.first
+
+    Bless::Blesser.bless(object, klass, context, invoker)
+  end
+end

data/lib/bless/version.rb

@@ -0,0 +1,3 @@
+module Bless
+  VERSION = '0.1.0'
+end

data/spec/bless_spec.rb

@@ -0,0 +1,82 @@
+require 'bless'
+
+class SomePackage
+end
+
+class ParentObject
+  attr_accessor :child
+end
+
+describe 'Kernel#bless' do
+  it 'can bless an object' do
+    expected_class = SomePackage
+    some_object = bless Object.new, expected_class
+    some_object.should be_an_instance_of(expected_class)
+  end
+
+  it 'can bless a nested object' do
+    expected_class = SomePackage
+    parent = ParentObject.new
+    parent.child = :unchanged_child_object
+    bless parent.child, expected_class
+    parent.child.should be_an_instance_of(expected_class)
+  end
+
+  it 'can bless an instance variable' do
+    expected_class = SomePackage
+    @some_instance_variable = :unchanged_instance_variable
+    bless @some_instance_variable, expected_class
+    @some_instance_variable.should be_an_instance_of(expected_class)
+  end
+
+  it 'defaults to the current class' do
+    some_object = bless Object.new
+    expected_class = self.class
+    # the matcher 'be_an_instance_of' uses the 'describe' description
+    some_object.instance_of?(expected_class).should be_true
+  end
+
+  it 'changes the reference to the object without requiring assignment' do
+    some_object = :unchanged_object
+    expected_class = SomePackage
+    bless some_object, expected_class
+
+    some_object.should be_an_instance_of(expected_class)
+  end
+
+  it 'changes the reference to the object when using an implicit class' do
+    some_object = String.new
+    expected_class = self.class
+    bless some_object
+
+    some_object.instance_of?(expected_class).should be_true
+  end
+
+  it 'attempts to convert the object if possible' do
+    some_object = 15
+    expected = [15]
+    bless some_object, Array
+
+    some_object.should == expected
+  end
+
+  it 'handles parens' do
+    some_object = { a: 1 }
+    expected = [[:a, 1]]
+    bless(some_object, Array)
+
+    some_object.should == expected
+  end
+
+  class VeryBasic < BasicObject
+    def bless_me(klass)
+      ::Kernel.bless self, klass
+    end
+  end
+
+  it 'gracefully handles BasicObjects' do
+    expect {
+      VeryBasic.new.bless_me(Hash)
+    }.to raise_error(Bless::Blesser::CannotBlessSimpletons)
+  end
+end

metadata

@@ -0,0 +1,156 @@
+--- !ruby/object:Gem::Specification
+name: bless
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+platform: ruby
+authors:
+- Lennart Fridén
+- Kim Persson
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2014-01-03 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: binding_of_caller
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '0.7'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '0.7'
+- !ruby/object:Gem::Dependency
+  name: byebug
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '2.5'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '2.5'
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.3'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.3'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10'
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '2.14'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '2.14'
+- !ruby/object:Gem::Dependency
+  name: guard
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '2.2'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '2.2'
+- !ruby/object:Gem::Dependency
+  name: guard-rspec
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '4.2'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '4.2'
+description: Blessed are the Perl hackers
+email:
+- lennart@devl.se
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- ".gitignore"
+- ".rspec"
+- ".travis.yml"
+- Gemfile
+- Guardfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- bless.gemspec
+- lib/bless.rb
+- lib/bless/version.rb
+- spec/bless_spec.rb
+homepage: https://github.com/DevL/bless
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.2.0
+signing_key: 
+specification_version: 4
+summary: Brings the blessings of Perl to Ruby
+test_files:
+- spec/bless_spec.rb