$VAR1 = \bless( { 'ofilename' => '/home/decmoon/tmp/test.mp3', '__proxy' => bless( [ ${$VAR1} ], 'MP3::Tag::__proxy' ), 'filename' => bless( { 'filename' => '/home/decmoon/tmp/test.mp3', 'parent' => ${$VAR1}->{'__proxy'} }, 'MP3::Tag::File' ), 'abs_filename' => '/home/decmoon/tmp/test.mp3' }, 'MP3::Tag' ); $VAR1 = \bless( { 'frame_start' => 0, 'revision' => 0, 'data_size' => 0, 'footer_size' => 0, 'flags' => {}, 'major' => 3, 'frame_major' => 3, 'tag_data' => '', 'tagsize' => 45622, 'buggy_padding_size' => 0, 'version' => '3.0', 'mp3' => bless( { 'parent' => bless( [ bless( { 'ID3v1' => bless( { 'mp3' => ${$VAR1}->{'mp3'}, 'genre' => '', 'track' => '', 'title' => 'Test tagv2', 'genreID' => 255, 'comment' => '', 'year' => '', 'artist' => '', 'new' => 1, 'changed' => 1, 'album' => '' }, 'MP3::Tag::ID3v1' ), 'ofilename' => '/home/decmoon/tmp/test.mp3', '__proxy' => ${$VAR1}->{'mp3'}->{'parent'}, 'ID3v2' => ${$VAR1}, 'filename' => ${$VAR1}->{'mp3'}, 'abs_filename' => '/home/decmoon/tmp/test.mp3' }, 'MP3::Tag' ) ], 'MP3::Tag::__proxy' ), 'filename' => '/home/decmoon/tmp/test.mp3' }, 'MP3::Tag::File' ) }, 'MP3::Tag::ID3v2' ); $VAR1 = \{}; $VAR1 = \{ 'TIT2' => 'Title/songname/content description' }; $VAR1 = \{};