Branch coverage issue in Devel::Cover

[Padubidri Nagaraja Rao, Guruprasad (Guruprasad)** CTR **]

Hi,

I am not able to get branch coverage for the following piece of code.

<code_snippet>
#!/usr/bin/perl

use File::Copy;

if (move("junk", "junk1"))
{
  print "file moved\n";
}
else
{
  print "file not moved - $!\n";
}

</code_snippet>

Environment :

Solaris 9
Perl 5.6.1
Devel-Cover-0.47

When i run 'cover', Statement coverage shows 100% but
branch coverage shows 0%. Why?

TIA.

Regards,
Guru.