#!/usr/bin/perl
use strict;
use warnings;
sub new {
}
sub bar{
my %some_hash = (temperature=>"35");
}
1;
my $object = codons1->new();
my %temp = $object->bar();
IyEvdXNyL2Jpbi9wZXJsCnVzZSBzdHJpY3Q7CnVzZSB3YXJuaW5nczsKcGFja2FnZSBjb2RvbnMxOwpzdWIgbmV3IHsKICAgIG15ICRjbGFzcyA9IHNoaWZ0OwogICAgcmV0dXJuIGJsZXNzIHt9LCAkY2xhc3M7Cn0Kc3ViIGJhcnsKICAgIG15ICVzb21lX2hhc2ggPSAodGVtcGVyYXR1cmU9PiIzNSIpOwogICAgcmV0dXJuICVzb21lX2hhc2g7Cn0KMTsKcGFja2FnZSBtYWluOwpteSAkb2JqZWN0ID0gY29kb25zMS0+bmV3KCk7Cm15ICV0ZW1wID0gJG9iamVjdC0+YmFyKCk7CnByaW50IGtleXMgJXRlbXA7