Number of days in the month of the year

moy.pl

sub days_inmonth_inyear {
    my ( $x, $y ) = @_;
    return 28 + ( ( $x + int( $x / 8 ) ) % 2 ) + 2 % $x + int(
        (   1
                + ( 1 - ( $y % 4 + 2 ) % ( $y % 4 + 1 ) )
                * ( ( $y % 100 + 2 ) % ( $y % 100 + 1 ) )
                + ( 1 - ( $y % 400 + 2 ) % ( $y % 400 + 1 ) )
        ) / $x
        ) + int( 1 / $x ) - int(
        (     ( 1 - ( $y % 4 + 2 ) % ( $y % 4 + 1 ) )
            * ( ( $y % 100 + 2 ) % ( $y % 100 + 1 ) )
                + ( 1 - ( $y % 400 + 2 ) % ( $y % 400 + 1 ) )
        ) / $x
        );
}