model.rb

      def id_is(attribute)
        (file, line) = caller.first.split(':')

        class_eval(<<-EOS, file, line.to_i)
        def #{attribute}=(value)
          #{attribute} = value.to_i
        end

        attr_reader #{attribute.inspect}
        alias :id #{attribute.inspect}
        alias :id= #{"#{attribute}=".to_sym.inspect}
        EOS
      end