The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More;

use strict;
use warnings;

use JSONP;

my $one = JSONP->new();
my $two = JSONP->new();

$one->css = { 
	'@media only screen (min-width: 33.75em)' => {
		'.container' => {
			'width' => '80%'
		}
	}
};

$two->css = { 
	'@media only screen (min-width: 33.75em)' => {
		'.container' => {
			'width' => '100%',
		}
	}
};

use Blessed::Merge;

my $blessed = Blessed::Merge->new();

my $new = $blessed->merge($one, $two);

is($new->serialize, '{"css":{"@media only screen (min-width: 33.75em)":{".container":{"width":"100%"}}}}');

done_testing;