jadeallenx

use strict;
use warnings;

{
	package JSON::ObjectFactory;
	
	use Carp;
	use Class::Tiny { json => sub { 'JSON::PP'->new } };
	use Import::Into;
	use JSON::PP ();

jadeallenx

# coding=UTF-8
from __future__ import division
import re

# This is a naive text summarization algorithm
# Created by Shlomi Babluki
# April, 2013


class SummaryTool(object):

jadeallenx

perl -C -S -MTime::Piece -Mojo -E '$i=1; mkdir $dir=$ENV{HOME}."/Dropbox/tunes.io/".localtime->ymd; say $_->text and g($_->attrs("href"))->max_message_size(25600000)->content->asset->move_to("$dir/${\$i++} ${\$_->text}.mp3") for g("tunes.io")->dom("ul a")->each'

jadeallenx

Purpose

This module takes XML and turns it into a deep proplist. The original code was written by @wackum.

I modified it so it:

• returns both attributes and the value instead of one or the other
• doesn't ignore the top level tag
• handles elements with empty content